(let ((arr (new 'global 'boxed-array int16 12)))
  (dotimes (i 12)
    (set! (-> arr i) (* i 2))
    )
  (dotimes (i 12)
    (format #t "~D ~D  " i (-> arr i))
    )
  (format #t "~D ~D ~D~%" (length arr) (asize-of arr) (&- (&-> arr 4) (&-> arr 1)))
  )

;; asize should be...
;; 16 + 12 * 2 = 40
;; ptr diff is 3 * 2 = 6