#lang racket/base
(require "grammar5.rkt")
(require "lexer.rkt")
(define (parse-string str)
   (syntax->datum (parse (tokenize-string str))))

(parse-string "1 + 2 * 3")
(parse-string "1 * 2 + 3")
(parse-string "(1 + 2) * (3 + 4)")