run -s2 '(a (mod (N) \
	(defun fact (K) (if (= K 1) 1 (* K (fact (- K 1))))) \
	(defun next_fib ((n0 n1)) (list n1 (+ n0 n1))) \
	(defun fib2 (N) (if (= N 0) (quote (0 1)) (next_fib (fib2 (- N 1))))) \
	(defun fib (N) (f (fib2 N))) \
	(+ (fib N) (fact N)) \
) (list 7))'
5053
