(defun random-select (L)
  (nth (random (length L)) L))
(defun random-select-non-mafia (L)
  (nth (random (length (remove 'm L))) (remove 'm L)))