(defun MASS-MILLIONS ()
  (let ((six-numbers
 	  (loop for x = (1+ (random 45))
		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))))