(let ((x (new 'stack-no-clear 'array 'int32 1))
      (y (new 'stack-no-clear 'array 'int8 2))
      (z (new 'stack-no-clear 'array 'int8 1)))
  (set! (-> x) 10)
  (set! (-> z) 0)
  (set! (-> y) #xfffffffff)
  (set! (-> y 1) 3)
  (+ (-> x) (-> y) (-> z) (-> y 1))
  )