(define foo (lambda ()
              (atomic (progn (+ 1 2 3)
                             (+ 1 2 4))
                      (progn (+ 2 4 8)
                             (+ 3 6 12)))))

(check (= (foo) 21))