Function Flip

Part of:

package cl-variates
( flip &optional < pr > < heads > < tails > )

Flip a pseudo-random coin and return true if it comes up heads. The default
probably of heads for the coin is probability-of-heads.