some xml filtering in haskell to learn the language