(module mp2-top  (lib "eopl.ss" "eopl")
  
  (require "drscheme-init.scm")
  (require "mp2-soln.scm")
  
  (define mp2-tests
    (list
     (list 'constant "33" 33)
     (list 'sum-1 "+(33,44)" 77)
     (list 'diff-1 "-(33,11)" 22)
     (list 'product-1 "*(22,2)" 44)
     ))
  
  (define run-mp2-tests
    (lambda ()
      (run-tests! value-of-aexp-string equal? mp2-tests)))

  (run-mp2-tests)
  
  )