#lang racket/base
(require "grammar4.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)")
#lang racket/base
(require "grammar4.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)")