(defn my-map [f xs]
  (if (seq xs)
    (lazy-seq (cons (f (first xs)), (my-map f (rest xs))))))