(defcall int (i fn) (reduce (fn (f fs) f:fs) (n-of i cdr)))
(defcall int (i f) (reduce (fn (f fs) f:fs) (n-of i f)))
-----