(defun MASS-MILLIONS ()
    (let ((six-numbers
	    (loop for x = (1+ (random 45 (make-random-state t)))
		  with y initially nil do
		  (if (= (length y) 6)
		      (return y)
		    (pushnew x y)))))
      (multiple-value-bind (a b c d e f)
	  (apply
	    'values
	    (sort six-numbers '<))
	(format t "~%Your numbers are:~%~A ~A ~A ~A ~A ~A"
		a b c d e f))))
    
(mass-millions)