addLetters :: [Char] -> Char
addLetters = (('z':cycle ['a'..'z']) !!) . sum . map (succ . (subtract `on` fromEnum) 'a')