;; Example from Autochrome, under EPL-1.0 license.
(defn example
[x]
(-> {:more (inc x)
:less (dec x)}
(assoc :twice (+ x x)))