let
metropolis prng alpha =
Femtolib
.
Random2
.float_lp prng < alpha