(let ((type t (array int))) (new-array t 100 (- 0 1)))