.
casino roulette algorithm perl