1 2 3 4 5 6 7
main :: IO () main = do f "100e12" f "00123.456" f :: String -> IO () f str = print (reads str :: [(Integer, String)])