(check (let ((r (eval-program (read-program "(+ 50 50)")))
(a (eval-program (read-program "(+ 20 20) (+ 100 150)"))))
(and ( = r 100)
( = a 250))))