parseHeader :: Parser ()
parseHeader = do
    manyTill anyChar $ string "analyses>"
    skipSpace
parseHeader :: Parser ()
parseHeader = do
    manyTill anyChar $ string "analyses>"
    skipSpace
parseHeader = do
    manyTill anyChar $ string "analyses>"
    skipSpace