randomString :: IO String
randomString =
  fmap (map toEnum)
  $ replicateM 4 (getStdRandom (randomR (fromEnum 'a', fromEnum 'z')))
randomString :: IO String
randomString =
  fmap (map toEnum)
  $ replicateM 4 (getStdRandom (randomR (fromEnum 'a', fromEnum 'z')))
randomString =
  fmap (map toEnum)
  $ replicateM 4 (getStdRandom (randomR (fromEnum 'a', fromEnum 'z')))