(set f' (fn (x acc)
	(if (< x 1) 
		acc
		(f' (- x 1) (+ acc x)))))
(set f (fn (x) (f' x 0)))
(say (f 10))
(say (f 100))