(defun binomial (p)
 (let ((x 1))
    (while (> p (my-random 1)) 
      (incf x))
    x))