parseExpr :: String -> [Expr]
parseExpr t =
  case parse (many1 $ whiteSpace >> topLevelStatement) "stdin" t of
    Left err -> error (show err)
    Right ast -> ast
parseExpr :: String -> [Expr]
parseExpr t =
  case parse (many1 $ whiteSpace >> topLevelStatement) "stdin" t of
    Left err -> error (show err)
    Right ast -> ast
parseExpr t =
  case parse (many1 $ whiteSpace >> topLevelStatement) "stdin" t of
    Left err -> error (show err)
    Right ast -> ast