my-test29   xtlang

(bind-func my-test29
  (lambda ()
    (let ((tup:tuple-with-array* (stack-alloc))
          (t2:|32,i64|* (stack-alloc)))
      (aset! t2 0 9)
      (tset! tup 2 5.5)
      (aset! (aref-ptr (tref-ptr tup 1) 0) 0 0)
      (aset! (aref-ptr (tref-ptr tup 1) 0) 1 1)
      (aset! (aref-ptr (tref-ptr tup 1) 0) 2 2)
      (printf "val: %lld %lld %f\n"
              (aref (aref-ptr (tref-ptr tup 1) 0) 1)
              (aref t2 0) (ftod (tref tup 2)))
      (aref (aref-ptr (tref-ptr tup 1) 0) 1))))