(letrec ((my-map (λ (f l)
                   (if (pair? l)
                       (cons (f (car l))
                             (my-map f (cdr l)))
                       (list)))))
  (my-map (λ (x) (* x x))
          (list 0 1 2 3 4)))