; This file contains the function which computes
; k(f,n) = f^{(n)}(0)

(defun k (f n) 
"Usage: >(k 'f n) where f is 1-ary and n is an integer."
	(if (= n 0)	0
		(f (k f (- n 1)))
	)
)

(defun j (n)
"Test function"	
	(if (= n 0)
		1
		(+ (j (- n 1)) 2))
)