parseFloat :: Parser LispVal
parseFloat = fmap (Float . fst . head . readFloat) parseFloatString
parseFloat :: Parser LispVal
parseFloat = fmap (Float . fst . head . readFloat) parseFloatString
parseFloat = fmap (Float . fst . head . readFloat) parseFloatString