pickOne :: [x] -> IO x Source #

flipCoin :: IO Bool Source #

pickOne' :: [x] -> TFGen -> (x, TFGen) Source #

flipCoin' :: TFGen -> (Bool, TFGen) Source #