removeVowels word = [ letter | letter <- word, not (letter elem “aeiouAEIOU” )]

wordLenPairs wordlist = [ (word, length word) | word <- wordlist ]