(defn compose [f g]
  (fn [x] (f (g x))))

(defn square [x] (* x x))

(print ((compose square inc) 6))