allHashes :: String -> [B.ByteString]
allHashes prefix = map hash [0..]
  where
    prefixCtx = MD5.update MD5.init $ pack prefix
    hash = MD5.finalize . MD5.update prefixCtx . pack . show
allHashes :: String -> [B.ByteString]
allHashes prefix = map hash [0..]
  where
    prefixCtx = MD5.update MD5.init $ pack prefix
    hash = MD5.finalize . MD5.update prefixCtx . pack . show
allHashes prefix = map hash [0..]
  where
    prefixCtx = MD5.update MD5.init $ pack prefix
    hash = MD5.finalize . MD5.update prefixCtx . pack . show