(let ((type arr (array string)) (var a arr (new-array arr 5 "abcd")))
  (if (= (aref a 0) "abcd") 1 2))