 
 (defn string-gen
   [rand-seed size]
-  (clojure.string/join (repeatedly size #(call-gen char rand-seed size))))
+  (clojure.string/join (repeatedly (call-gen (choose 0 size) rand-seed size)
+                                   #(call-gen char rand-seed size))))
 
 (def string
   "Generate strings."


(defn make-size-range-seq
  [max-size]
  (cycle (range 1 max-size)))

(defn sample-seq
  ([generator] (sample-seq generator 100))


(defn string-ascii-gen
  [rand-seed size]
  (clojure.string/join (repeatedly (call-gen (choose 0 size) rand-seed size)
                                   #(call-gen char-ascii rand-seed size))))

(def string-ascii
  "Generate ascii strings."
