RosettaCodeData/Task/Pick-random-element/Haskell/pick-random-element-2.hs

import Data.Random
import Data.Random.Source.DevRandom
import Data.Random.Extras

x <- runRVar (choice [1 2 3]) DevRandom