(defun fac (x)
  (match x
    (0 1)
    (1 1)
    (_ (* x (fac (- x 1))))))

(defun mymap (f m)
  (if (eq m nil)
      nil
      (cons (f (car m)) (mymap m f))))