1 (defun my-map (p sequence)
2   (accumulate
3    (lambda (x y)
4      (cons (funcall p x) y))
5    nil
6    sequence))