rationalToFloat :: Ratio Integer  ->  Float;
rationalToFloat (CnPc (Integer x) (Integer y)) = Float x y
rationalToFloat :: Ratio Integer  ->  Float
rationalToFloat (CnPc (Integer x) (Integer y)) = Float x y
rationalToFloat (CnPc (Integer x) (Integer y)) = Float x y