(let ((type array_int (array int))
      (var shamiq array_int (new-array array_int 10 15))
      (var i int 2))
  (begin
    (:= (aref shamiq 0) 0)
    (:= (aref shamiq 1) 1)
    (while
     (< i 10)
     (:= (aref shamiq i) (+ (aref shamiq (- i 1)) (aref shamiq (- i 2)))))))