(defn (f' x acc)
	(if (< x 1)
		acc
		(f' (- x 1) (+ acc x))))
(set! _global_f' f')
(defn (f x) (_global_f' x 0))
(say (f 10))
(say (f 1000))