(defun map (f l) (shen.map-h f l ())) (defun shen.map-h (f l accum) (cond ((= () l) (reverse accum)) ((cons? l) (shen.map-h f (tl l) (cons (f (hd l)) accum))) (true (shen.f_error shen.map-h))))