((let ((comp (< 1 0)))
 (if comp
 (let ((t (new-tuple 3 4)))
   (let ((r (:a 2 t)))
        (print r)))
 (let ((r2 (print 3)))
   (let ((r3 (print 2)))
        (print r3)))))
 (:a
  (t results)
  (let ((x (aref results 0)))
        (let ((y (aref results 1)))
          (let ((v1 (+ t x)))
                (let ((v2 (+ t y)))
                        (new-tuple v1 v2)))))))
