phonetic codes in Haskell