1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
(mod (Z) (include *standard-cl-23*) (defun add-one (X) (+ X 1)) (defun map (F L) (if L (c (a F (list (f L))) (map F (r L))) () ) ) (map add-one Z) )