   [rand-seed size]
   (apply str (repeatedly size #(char-alpha-numeric rand-seed size))))
 
+(defn shrink-string
+  [s]
+  (clojure.core/map (partial apply str) (shrink-seq s)))
+
 (def keyword (fmap clojure.core/keyword string-alpha-numeric))
 
 (defn shrink-map

                                      (choose 65 90)
                                      (choose 97 122)])))

(defn string
  [rand-seed size]
  (apply str (repeatedly size #(char rand-seed size))))

  (shrink [this]))

(defn fmap
  "NOTE: since `gen` is a function, this is just equivalent
  to `comp`. Perhaps using fmap will be more confusing to people?"
  [f gen]
  (fn [rand-seed size]
    (f (gen rand-seed size))))
