3 ================================================================================
11 PrelNum.fromRational{-8T,p-}
12 PrelBase.Float{-3c,p-}
20 PrelNum.fromRational{-8T,p-}
21 PrelBase.Double{-3a,p-}
27 AbsBinds [] [] [([], c{-r5,x-}, c_a15h)]
29 x1_r4l x2_r4n x3_r4p x4_r4r
30 = STBase.ST{-5G,p-}{i}
31 [GHC.RealWorld{-3s,p-}, PrelBase.Float{-3c,p-}]
33 x1_r4l x2_r4n x3_r4p x4_r4r
36 AbsBinds [] [] [([], b{-r3,x-}, b_a15F)]
38 x_r4j = STBase.ST{-5G,p-}{i}
39 [GHC.RealWorld{-3s,p-}, PrelBase.Int{-3g,p-}]
44 AbsBinds [] [] [([], a{-r1,x-}, a_a15R)]
46 = STBase.ST{-5G,p-}{i}
47 [GHC.RealWorld{-3s,p-}, PrelBase.Int{-3g,p-}]
51 AbsBinds [] [] [([], d{-r7,x-}, d_a15Y)]
53 = STBase.thenPrimIO{-r4w,p-}
54 [PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-}]
56 (\ x_r4t -> STBase.thenPrimIO{-r4w,p-}
57 [PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-}]
61 y_r4v 'f' lit_a16r lit_a16p))
65 ================================================================================
69 {PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,p-}}
74 PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
77 PrelNum.fromRational{-8T,p-}
78 _@_ PrelBase.Float{-3c,p-} d.Fractional_a16j
80 PrelBase.Float{-3c,p-}
86 {PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,p-}}
91 PrelNum.Rational{-3r,p-} -> PrelBase.Double{-3a,p-}
94 PrelNum.fromRational{-8T,p-}
95 _@_ PrelBase.Double{-3a,p-} d.Fractional_a16n
97 PrelBase.Double{-3a,p-}
104 -> PrelBase.Char{-38,p-}
105 -> PrelBase.Float{-3c,p-}
106 -> PrelBase.Double{-3a,p-}
107 -> STBase.PrimIO{-3P,p-} PrelBase.Float{-3c,p-}
114 PrelBase.Char{-38,p-}
117 PrelBase.Float{-3c,p-}
120 PrelBase.Double{-3a,p-}
125 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
126 -> (PrelBase.Float{-3c,p-}, STBase.State{-3M,p-} GHC.RealWorld{-3s,p-})
130 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
133 case ds_d1ez of { STBase.S#{-5D,p-}{i} ds_d1eI ->
134 case x1_r4l of { PrelBase.I#{-5b,p-}{i} ds_d1eR ->
135 case x2_r4n of { PrelBase.C#{-54,p-}{i} ds_d1f0 ->
136 case x3_r4p of { PrelBase.F#{-59,p-}{i} ds_d1f9 ->
137 case x4_r4r of { PrelBase.D#{-56,p-}{i} ds_d1fw ->
139 _ccall_ c [(STBase.StateAndFloat#{-3C,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-} GHC.Char#{-37,p-} GHC.Float#{-3b,p-} GHC.Double#{-39,p-}]!
140 ds_d1eI ds_d1eR ds_d1f0 ds_d1f9 ds_d1fw
142 STBase.StateAndFloat#{-5u,p-}{i} ds_d1fZ ds_d1fX ->
145 PrelBase.Float{-3c,p-}
148 PrelBase.F#{-59,p-}{i}
152 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
156 {_@_ GHC.RealWorld{-3s,p-} ds_d1fZ}
158 PrelTup.(,){-62,p-}{i}
159 {_@_ PrelBase.Float{-3c,p-}
160 _@_ (STBase.State{-3M,p-} GHC.RealWorld{-3s,p-})
165 _@_ GHC.RealWorld{-3s,p-} _@_ PrelBase.Float{-3c,p-} ds_d1et
168 -> PrelBase.Char{-38,p-}
169 -> PrelBase.Float{-3c,p-}
170 -> PrelBase.Double{-3a,p-}
171 -> STBase.PrimIO{-3P,p-} PrelBase.Float{-3c,p-}
176 PrelBase.Int{-3g,p-} -> STBase.PrimIO{-3P,p-} PrelBase.Int{-3g,p-}
185 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
186 -> (PrelBase.Int{-3g,p-}, STBase.State{-3M,p-} GHC.RealWorld{-3s,p-})
190 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
193 case ds_d1gp of { STBase.S#{-5D,p-}{i} ds_d1gy ->
194 case x_r4j of { PrelBase.I#{-5b,p-}{i} ds_d1gM ->
196 _ccall_ b [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-}) GHC.Int#{-3f,p-}]!
199 STBase.StateAndInt#{-5v,p-}{i} ds_d1hf ds_d1hd ->
205 PrelBase.I#{-5b,p-}{i}
209 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
213 {_@_ GHC.RealWorld{-3s,p-} ds_d1hf}
215 PrelTup.(,){-62,p-}{i}
216 {_@_ PrelBase.Int{-3g,p-}
217 _@_ (STBase.State{-3M,p-} GHC.RealWorld{-3s,p-})
222 _@_ GHC.RealWorld{-3s,p-} _@_ PrelBase.Int{-3g,p-} ds_d1gj
224 PrelBase.Int{-3g,p-} -> STBase.PrimIO{-3P,p-} PrelBase.Int{-3g,p-}
229 STBase.PrimIO{-3P,p-} PrelBase.Int{-3g,p-}
234 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
235 -> (PrelBase.Int{-3g,p-}, STBase.State{-3M,p-} GHC.RealWorld{-3s,p-})
239 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
242 case ds_d1hE of { STBase.S#{-5D,p-}{i} ds_d1hP ->
244 _ccall_ a [(STBase.StateAndInt#{-3D,p-} GHC.RealWorld{-3s,p-}) (GHC.State#{-3L,p-} GHC.RealWorld{-3s,p-})]!
247 STBase.StateAndInt#{-5v,p-}{i} ds_d1ii ds_d1ig ->
253 PrelBase.I#{-5b,p-}{i}
257 STBase.State{-3M,p-} GHC.RealWorld{-3s,p-}
261 {_@_ GHC.RealWorld{-3s,p-} ds_d1ii}
263 PrelTup.(,){-62,p-}{i}
264 {_@_ PrelBase.Int{-3g,p-}
265 _@_ (STBase.State{-3M,p-} GHC.RealWorld{-3s,p-})
270 _@_ GHC.RealWorld{-3s,p-} _@_ PrelBase.Int{-3g,p-} ds_d1hy
272 STBase.PrimIO{-3P,p-} PrelBase.Int{-3g,p-}
277 STBase.PrimIO{-3P,p-} PrelBase.Float{-3c,p-}
283 -> STBase.PrimIO{-3P,p-} PrelBase.Float{-3c,p-}
292 STBase.PrimIO{-3P,p-} PrelBase.Int{-3g,p-}
300 -> STBase.PrimIO{-3P,p-} PrelBase.Float{-3c,p-}
309 PrelBase.Char{-38,p-}
312 PrelBase.C#{-54,p-}{i}
316 y_r4v ds_d1jf lit_a16r lit_a16p
318 STBase.thenPrimIO{-r4w,p-}
319 _@_ PrelBase.Int{-3g,p-} _@_ PrelBase.Float{-3c,p-} ds_d1iT ds_d1iX
321 STBase.thenPrimIO{-r4w,p-}
322 _@_ PrelBase.Int{-3g,p-}
323 _@_ PrelBase.Float{-3c,p-}
327 STBase.PrimIO{-3P,p-} PrelBase.Float{-3c,p-}
333 NOTE: Simplifier still going after 4 iterations; bailing out.