import Bio.Alignment.BlastXML
import Bio.Alignment.BlastData

files=["blastp.xml", "blastn.xml", "blastx.xml", "tblastn.xml", "tblastx.xml"]

main = mapM doit files >> putStrLn "Parsing Blast output completed successfully"

doit f = do putStr ("Counting matches in '"++f++"':\t")
            print =<< (length . concatMap results) `fmap` readXML f