zh217

(defmacro define
  "Scheme style define for Clojure"
  [args & body]
  (if (symbol? args)
    `(def ~args ~@body)
    (let [[h & t] args]
      `(define ~h
         (fn [~@t]
           ~@body)))))