randomId :: RandomGen g => g -> (Id, g)
randomId g = let (bs, Just g') = BS.unfoldrN 32 (Just . random) g in (mkId' bs, g')
randomId :: RandomGen g => g -> (Id, g)
randomId g = let (bs, Just g') = BS.unfoldrN 32 (Just . random) g in (mkId' bs, g')
randomId g = let (bs, Just g') = BS.unfoldrN 32 (Just . random) g in (mkId' bs, g')