gistfile1.lisp

(defun tak (x y z)
  (if (>= y x)
      z
      (tak (tak (1- x) y z)
           (tak (1- y) z x)
           (tak (1- z) x y))))

(defun call_tak ()
  (dotimes (i 10) (tak 24 16 8)))

* (time (call_tak))

Evaluation took:
  0.764 seconds of real time
  0.744046 seconds of user run time
  0.0 seconds of system run time
  0 calls to %EVAL
  0 page faults and
  0 bytes consed.
NIL