@@ -66,6 +66,7 @@
'string)))
(defun main (len count &optional human-readable exclude-excluded (additional-special nil asp))
+ (setf *random-state* (make-random-state t))
(if (< len 4)
(print "Length must be at least 4~%")
(loop for x from 1 to count do