ran_bern function

Bernoulli Random Samples