($ add (-> (x) (+ 1 x)))
($ twice (-> (f x) (f (f x))))

(assert= 6 (twice add 4))