Hi
http://hpaste.org/1882 (replicated at the end of this message in case the hpaste is not around forever, but clearly layout and syntax colouring)
For completeness, the code in question is: Main.$wccall [NEVER Nothing] :: GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Prim.Int# #) [GlobalId] [Arity 1 NoCafRefs Str: DmdType S] Main.$wccall = {__ccall getchar GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Prim.Int# #)}_d2af Rec { Main.$sprelude_942_ll107 :: GHC.Base.Int -> GHC.Prim.Int# -> GHC.Base.Int [GlobalId] [Arity 2 NoCafRefs] Main.$sprelude_942_ll107 = \ (v2_aVr :: GHC.Base.Int) (sc_s2VC :: GHC.Prim.Int#) -> case Main.$wccall GHC.Prim.realWorld# of wild_X28 { (# ds_d2ad, ds1_d2ac #) -> case ds1_d2ac of wild1_X2b { __DEFAULT -> Main.$sprelude_942_ll107 v2_aVr (GHC.Prim.+# sc_s2VC 1); (-1) -> case v2_aVr of tpl_X3g { GHC.Base.I# a_s2QS -> GHC.Base.I# sc_s2VC } } } end Rec }