Data.Random.Choose

Algorithm outline