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