Prolog: how to non-uniformly randomly select a element from a list?

Does anyone have any Prolog code to non-uniformly select a random element from a list?

I want to replicate the functionality of numpy.random.choice when given the probabilities associated with each entry in the input list.