1(defun tak (x y z)
2  (declare (fixnum x y z))
3  (cond ((not (< y x)) z)
4        (t
5          (tak
6            (tak (the fixnum (1- x)) y z)
7            (tak (the fixnum (1- y)) z x)
8            (tak (the fixnum (1- z)) x y)))))
9
10(defun tak-test ()
11    (tak 18 12 6)
12    (tak 18 12 6)
13    (tak 18 12 6)
14    (tak 18 12 6)
15    (tak 18 12 6)
16    (tak 18 12 6)
17    (tak 18 12 6)
18    (tak 18 12 6)
19    (tak 18 12 6)
20    (tak 18 12 6))
21
22