maps numbers from a to b
(defun mapa-b (fn a b &optional (step 1)) "maps numbers from a to b" (do ((i a (+ i step)) (result nil)) ((> i b) (nreverse result)) (push (funcall fn i) result)))