-- data ::= usefulData data | invalidData data | eol
-- usefulData ::= keyAndId value
-- keyAndId ::= firstPart id lastPart eol
-- firstPart ::= "any_"
-- id ::= digits
-- lastPart ::= "_shape"
-- value ::= string eol
-- invalidData ::= string ivalidData | digit invalidData | eol
-- eol ::= end of line



test str = parse parser "" str

parser = do result <- Text.Parsec.Prim.try (many1 parKV) <|> Text.Parsec.Prim.try (many1 orPar)
            return result

orPar = Text.Parsec.Prim.try parKV <|> Text.Parsec.Prim.try remaining

remaining = do skipMany (noneOf "\n")
               eol
               return [] >> orPar

parKV = do
          id <- tagLine
          name <- nameLine
          return (id,name)

tagLine :: GenParser Char st String
tagLine = do result <- (between firstPart lastPart id)
             eol
             return result
             where
                firstPart = string "any_"
                id = many digit
                lastPart = string "_shape"

nameLine :: GenParser Char st String
nameLine = do name <- (many $ noneOf "\n")
              eol
              return name

eol :: GenParser Char st Char
eol = char '\n'