(= map (fn (f lst)
  (let res (cons nil nil))
  (let tail res)
  (while lst
    (setcdr tail (cons (f (car lst)) nil))
    (= lst (cdr lst))
    (= tail (cdr tail)))
  (cdr res)))

(print (map (fn (x) (* x x)) '(1 2 3 4 5 6 7 8 9 10)))