module Main where
 
import Text.XML.HaXml.SAX
import System

main = 
    do
      names <- getArgs
      mapM_ main' names
      putStrLn ""

main' name =
    do
      inp <- readFile name
      mapM_ display $ fby $ fst $ saxParse name inp

fby [] = []
fby x = zip3 (putStr:repeat putStrLn) x $ tail x

display (putPmid, (SaxElementOpen "PMID" _), (SaxCharData pmid)) = 
    putPmid pmid
display (_, (SaxElementOpen "AbstractText" _), (SaxCharData abstractText)) = 
    putStr " " >> putStr abstractText
display _ = 
    return ()