(check (= 1 (eval-program (read-program "(+ 1 2) (- 3 2)"))))