   `(HOC. (vec '~argspec) nil))
 
 (comment
-  (_ even? number? => number?)  
+  (_ even? number? => number?)
 )
 
 ;; # base functions and macros

   (->> (build-pre-post-map cnstr)
        (manip-map (partial funcify '[%]) [:post])
        (manip-map (partial funcify args) [:pre]))])

(defn- build-contract 
  "Expects a seq representing an arity-based expectation of the form:

          (catch AssertionError post#
            (throw (AssertionError. (str "Post-condition failure in " ~n "! " (.getMessage post#))))))))))

(comment
  (build-contract 'hof (build-constraints-map '[n] (:argspec (_ even? number? => number?))))
)

(defmacro contract
  "The base contract form returning a higher-order function that can then be partially
   applied to an existing function to 'apply' a contract.  Take for example a simple
