anchor.diff:                  let prs = prs.SkipIfMatch (OPT(this.``s-separate`` prs))
                   let commaPattern = this.``c-collect-entry`` + OPT(this.``s-separate`` prs)
                   match prs with 
  -                |   Regex3(commaPattern) (_, prs2) -> ``ns-s-flow-seq-entries`` prs2 lst |> ParseState.MarkParseRange prs
  +                |   Regex3(commaPattern) (_, prs2) -> ``ns-s-flow-seq-entries`` prs2 lst
                   |   _ ->  
                       CreateSeqNode (NonSpecific.NonSpecificTagQM) (getParseInfo ps prs) lst
                       |> this.ResolveTag prs NonSpecificQM (prs.Location)
  
positive.code:                 let prs = prs.SkipIfMatch (OPT(this.``s-separate`` prs))
                  let commaPattern = this.``c-collect-entry`` + OPT(this.``s-separate`` prs)
                  match prs with
                  |   Regex3(commaPattern) (_, prs2) -> ``ns-s-flow-map-entries`` prs2 lst |> ParseState.MarkParseRange prs
                  |   _ -> 
                      CreateMapNode (NonSpecific.NonSpecificTagQM) (getParseInfo ps prs) lst  
                      |> this.ResolveTag prs NonSpecificQM (prs.Location)
  
negative.code:             let (n, psr) = pso.Data
              AddCancelMessage (ps.Location) psr
              FallibleOption.Value(n,psr)
          |   _ -> pso
  
      let AddErrorMessageDel m (ps:ParseState) = ParseState.AddErrorMessageDel ps m 
  