; You should put chez-init.ss in your current directory (load "chez-init.ss") ; replace this by a pointer to your A11b code (load "C:\\SVN\\304\\Grading program\\AA Student submissions\\202110\\hoeventl-johnsoa8.ss") (define read-and-parse (lambda () (let loop () (display "enter an expression: ") (let ([datum (read)]) (unless (eq? datum 'exit) (pretty-print (parse-exp datum)) (loop)))))) (read-and-parse) 4 a 'a (a b c) '(a b c) ''(a b c) exit (parse-exp 'a) (parse-exp ''a) (parse-exp '(a b c)) (parse-exp ''(a b c)) (parse-exp '''(a b c)) (quote (quote (a b c)))