-- Warning: an empty list leads to a crash.
-- TODO: make more failsafe randomL/randomLs functions.
randomL :: RandomGen g => [a] -> g -> (a, g)
randomL []  _   = error "randomL: empty list"
randomL :: RandomGen g => [a] -> g -> (a, g)
randomL []  _   = error "randomL: empty list"
randomL []  _   = error "randomL: empty list"