(mut funcs [])

(mut i 0)
(while (< i 10) {
  (let ii i)
  (append! funcs (fun (&ii) (* ii ii)))
  (set i (+ i 1)) })

(set i 0)
# display the result of all but the last
(while (< i 9) {
  (assert (= ((@ funcs i)) (* i i)) "(@ funcs i) returns (* i i)")
  (set i (+ 1 i)) })