(defn f [g] (g 2))

(defn square [n]
  (* n n))

(print (f square))
(print (f (fn [z] (* z (+ z 1)))))
(print (f f))