parseSpaces :: ReadP ()
parseSpaces = do _ <- munch isSpace
                 return ()
parseSpaces :: ReadP ()
parseSpaces = do _ <- munch isSpace
                 return ()
parseSpaces = do _ <- munch isSpace
                 return ()