path: root/tests/iota_rec.bth

(defn (iota' arr i max)
	(if (< i max)
		(iota' (append! arr i) (+ i 1) max)
		arr))
(set! _G_iota' iota')
(defn (iota n) (_G_iota' [] 0 n))
(say (iota 10))