Use Math::Random::Discrete instead of quite buggy alternative prior.