candidates :: String -> [(Int, String)]
candidates [] = []
candidates xs |contains (decipherStr (head key) xs) "THE" == True ||  contains (decipherStr (head key) xs) "AND" == True
                = (head key,decipherStr (head key) xs) : candidates xs
              |otherwise = candidates xs
                      where key = [1..25]