(defn inc [x] (+ x 1)) (defn inv [x] (* x -1)) (defn sq [x] (* x x)) (-> 2 inc) # -> 3 (-> 2 inc inc) # -> 4 (-> 2 inc inc inv) # -> -4 (-> 2 inc inc inv sq) # -> 16