((let ((allocatebinding (new-array 1 1)))
   (let ((x (+ 1 2)))
     (let ((allocatebindingx (new-array 1 1)))
       (let ((y (* x x)))
         (let ((allocatebindingxx (new-array 1 1)))
           (let ((z (+ x y)))
             (let ((allocatebindingxxx (new-tuple 0 1 2 3 4 5 6)))
               (print z)))))))))
