parse xml

import System
importText.XML.HaXml
import Text.XML.HaXml.Posn
import Text.XML.HaXml.Util
import Text.XML.HaXml.Xtract.Parse

main = do
  args <- getArgs
  contents <- readFile $ head args   
  let
    Document _ _ root _ = xmlParse "" contents
    cont = CElem root noPos
    m = xtract id "//a[@color='red']" cont !! 0
  mapM_ (putStrLn . tagTextContent) $ xtract id "//b" m