checkRecognizesCast :: Int -> Bool
checkRecognizesCast i = parse float "" (show i ++ "M") == Right (EDNFloat $ realToFrac i)
checkRecognizesCast :: Int -> Bool
checkRecognizesCast i = parse float "" (show i ++ "M") == Right (EDNFloat $ realToFrac i)
checkRecognizesCast i = parse float "" (show i ++ "M") == Right (EDNFloat $ realToFrac i)