[Haskell-cafe] Way to implement toFloat :: (Num a) => a -> Float