1 --!!! conversions: Double <=> Rational/Integer things
5 main = putStr (show r42 ++ "\n" ++
18 nu42d, de42d :: Double
23 de42 = denominator r42
24 nu42d= fromInteger nu42
25 de42d= fromInteger de42
27 (s,e)= decodeFloat (nu42d / de42d )
28 (s2,e2) = decodeFloat d42