A DSL sample using clojure