parseRecordField = liftM2 (,) parseName parseTerm
    where parseName = (try (do {name <- identifier; symbol "="; return name}))
                      <|> return "-1"
parseRecordField = liftM2 (,) parseName parseTerm
    where parseName = (try (do {name <- identifier; symbol "="; return name}))
                      <|> return "-1"
parseRecordField = liftM2 (,) parseName parseTerm
    where parseName = (try (do {name <- identifier; symbol "="; return name}))
                      <|> return "-1"