randomLs :: RandomGen g => [[a]] -> g -> ([a], g)
randomLs =
  runState . sequence . map (state . randomL)
randomLs :: RandomGen g => [[a]] -> g -> ([a], g)
randomLs =
  runState . sequence . map (state . randomL)
randomLs =
  runState . sequence . map (state . randomL)