(
defun
ack
(
m
n
)
(
cond
(
(
zerop
m
)
(
1
+
n
)
)
(
(
zerop
n
)
(
ack
(
1
-
m
)
1
)
)
(
(
ack
(
1
-
m
)
(
ack
m
(
1
-
n
)
)
)
)
)
)
syntax highlighted by
Code2HTML
, v. 0.9.1