Fix problem with alexandria:shuffle not being truly random

Due to the way random works, we need to see it on each run of the
binary - thus need to make a new random state.

src/main.lisp

@@ -64,6 +64,7 @@
        (split 5)))
 
 (defun start ()
+  (setf *random-state* (make-random-state t))
   (destructuring-bind (hand . rest) (generate-hand)
     (declare (ignore rest))
     (->> hand cardset->str (format t "Hand=[~a]~%"))