1 -- !!! basic Rational operations
8 show [i0a, i0b, i0c, i2a, i2b, im2a, im2b, i_pi, i_misc]
11 ++ show ((map numerator [i0a, i0b, i0c, i2a, i2b, im2a, im2b, i_pi, i_misc])
12 ++(map denominator [i0a, i0b, i0c, i2a, i2b, im2a, im2b, i_pi, i_misc]))
18 -- Rationals (Ratio Integers)
19 ++ show [r0a, r0b, r0c, r2a, r2b, rm2a, rm2b, r_pi, r_misc]
22 ++ show ((map numerator [r0a, r0b, r0c, r2a, r2b, rm2a, rm2b, r_pi, r_misc])
23 ++(map denominator [r0a, r0b, r0c, r2a, r2b, rm2a, rm2b, r_pi, r_misc]))
30 i0a, i0b, i0c, i2a, i2b, im2a, im2b, i_pi, i_misc :: Ratio Int
42 r0a, r0b, r0c, r2a, r2b, rm2a, rm2b, r_pi, r_misc :: Rational