bruteBreak :: Alphabet -> String -> [(Int, String)]
bruteBreak alphabet str = zip allPossibleKeys (map (\s -> decode s alphabet str) allPossibleKeys)
    where allPossibleKeys = [1..alphabetLength alphabet]
bruteBreak :: Alphabet -> String -> [(Int, String)]
bruteBreak alphabet str = zip allPossibleKeys (map (\s -> decode s alphabet str) allPossibleKeys)
    where allPossibleKeys = [1..alphabetLength alphabet]
bruteBreak alphabet str = zip allPossibleKeys (map (\s -> decode s alphabet str) allPossibleKeys)
    where allPossibleKeys = [1..alphabetLength alphabet]