; 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)))