ratFloat :: (Int, Int) -> FloatratFloat (_, 0) = error("Oops cannot divid by zero")ratFloat (a, b) = fromIntegral a / fromIntegral b
