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