parseArg :: String -> Either String Expr
parseArg x = case parse (whiteSpace >> argExpr) "" x of
               Left err -> Left $ show err
               Right ast -> Right . head . removeParens . indirPass $ [ast]

-- Parses a single statement
parseArg :: String -> Either String Expr
parseArg x = case parse (whiteSpace >> argExpr) "" x of
               Left err -> Left $ show err
               Right ast -> Right . head . removeParens . indirPass $ [ast]

-- Parses a single statement
parseArg x = case parse (whiteSpace >> argExpr) "" x of
               Left err -> Left $ show err
               Right ast -> Right . head . removeParens . indirPass $ [ast]

-- Parses a single statement