main :: IO ()
main = do
    print $ map (/2) ([5..6] :: [Double])
    print $ ([9007199254740990..9007199254740991] :: [Double])
    print $ map (/2) ([9007199254740990..9007199254740991] :: [Double])
    print $ ([9007199254740989..9007199254740990] :: [Double])
    print $ map (/2) ([9007199254740989..9007199254740990] :: [Double])