   [f x]
   (cons (f (first x)) (rest x)))
 
-(defn named? [thing]
-  (instance? clojure.lang.Named thing))+(defn named? [x]
+  (instance? clojure.lang.Named x))
  
(defn symbol-named?
  "Is the thing a symbol with the name given by the string?"
  [thing string]
  (and (symbol? thing)
       (= (name thing) string)))

(defn first-named?
  "Is the form's first element a symbol whose name is the desired string?"

        [utilize.seq :only (first-truthy-fn)])
  (:require [clojure.zip :as zip]))

(defn regex? [x]
  (= (class x) java.util.regex.Pattern))

(defn classic-map? [x]
  (.isInstance clojure.lang.APersistentMap x))
