(defun rencontre (n) (frequency 0 (- (iseq 1 n) (sample (iseq 1 n) n ))))