{-- TODO Move to commons --}
genString :: Gen (PrimState IO) -> IO String
genString gen = do
    xs <- replicateM 4 $ uniformR (start, end) gen
    return $ map toEnum xs where
      start = fromEnum 'a'
      end = fromEnum 'z'
genString :: Gen (PrimState IO) -> IO String
genString gen = do
    xs <- replicateM 4 $ uniformR (start, end) gen
    return $ map toEnum xs where
      start = fromEnum 'a'
      end = fromEnum 'z'
genString gen = do
    xs <- replicateM 4 $ uniformR (start, end) gen
    return $ map toEnum xs where
      start = fromEnum 'a'
      end = fromEnum 'z'