   (ar? (nth inputs index)))
 
 (defcheck num-outs-greater-than [n]
-  (str "must have " (+ n 1) " or more output channels")
+  (str "Must have " (+ n 1) " or more output channels")
           true)
 
 (defn- mk-check-all

  (every? ar? (take n inputs)))

(defcheck after-n-inputs-rest-ar [n]
  (str "all but the first " n " inputs must be audio rate")
  (every? ar? (drop n inputs)))

(defcheck all-but-first-input-ar []

          (when-not ~expr ~message))))))

(defcheck same-rate-as-first-input []
  (str "Rate mismatch: "(name-of (first inputs)) " is at rate " (:rate-name (first inputs))  " yet the containing ugen is at " (REVERSE-RATES rate))
  (= (:rate (first inputs)) rate))

(defcheck first-input-ar []
  (str "The first input must be audio rate. Got " (:rate-name (first inputs)))
