                           (gen-pure (shrink-rose clojure.core/list
                                                  roses)))))))
 
-(def byte (fmap clojure.core/byte (choose Byte/MIN_VALUE Byte/MAX_VALUE)))
-
-(def bytes (fmap clojure.core/byte-array (vector byte)))
+(def byte
+  "Generates `java.lang.Byte`s, using the full byte-range."
+  (fmap clojure.core/byte (choose Byte/MIN_VALUE Byte/MAX_VALUE)))
+
+(def bytes
+  "Generates byte-arrays."
+  (fmap clojure.core/byte-array (vector byte)))
 
 (defn map
   "Create a generator that generates maps, with keys chosen from

    (fmap clojure.core/keyword)))

(def ratio
  (fmap
    (fn [[a b]] (/ a b))
    (tuple int

  (sized (fn [size] (choose (- size) size))))

(def nat
  "Generates natural numbers, starting at zero. Shrinks to zero."
  (fmap #(Math/abs (long %)) int))

(def pos-int
