gistfile1.txt

import Control.Monad (replicateM_)
import qualified Data.ByteString as B
import Network.Format.LLSD
import System.Environment

main = do
  [path, count] <- getArgs
  replicateM_ (read count) $ do
    bs <- B.readFile path
    case parseXML bs of
      Left err -> print err
      Right p -> print p