intermediate 100 in haskell, sensoring badwords in a file