(let ((newlist (list 1 2 3 4 5 6 7 8 9 10)))
	   (dotimes (n 10)
	     (let ((ele (elt newlist (random (length newlist)))))
	       (print ele)
	       (setf newlist (remove ele newlist)))))