;; apply a function
(map (fn [x] (* x x)) [1 2 3 4])