lexeme :: Parser a -> Parser a
lexeme p = do
    x <- p
    whiteSpace
    return x
lexeme :: Parser a -> Parser a
lexeme p = do
    x <- p
    whiteSpace
    return x
lexeme p = do
    x <- p
    whiteSpace
    return x