(let ((test-array (new 'static 'array int16 10 1 2 -10)))
  (format #t "~d ~d ~d~%" (-> test-array 0) (-> test-array 1) (-> test-array 2))
  0
  )