(let ((type a (array int)) (var a a (new-array a 10 0))) 1)