module Bernoulli:sig..end
    The probability distribution, which takes value 1 with success
    probability p and value 0 with failure probability 1 - p.
type t = {
   | 
bernoulli_p : | 
include Distributions.DiscreteDistribution
include Distributions.Features.S
val create : p:float -> tp.val mle : int array -> t