dino-

#! /usr/bin/env runhaskell

import Text.HTML.TagSoup

main :: IO ()
main = do
   tags <- fmap parseTags $ readFile "foo.xml";
   let names = sections (~== "<name>") $ tags
   mapM_ (\t -> putStrLn $ "saw: " ++ t ) $ map fromTagText
      $ map (flip (!!) 1) names