(let ((type v (array string))
      (var strings (new-array v 100 "blank"))
      (var test string "test"))
  (:= test (aref strings 3)))