anchor.diff:      if exitWithError || count < min then Reply(lastStatus, output, lastError)
       else Reply(output)
   
  -let parseManyUnboundedSepBy allowEnd min (sep : Parser<'b, 'u>) (parser : Parser<'a, 'u>) (stream : CharStream<'u>) =
  +let private parseManyUnboundedSepBy allowEnd min (sep : Parser<'b, 'u>) (parser : Parser<'a, 'u>) (stream : CharStream<'u>) =
       let output = new ResizeArray<'a>(capacity = min)
       let mutable count = 0
       let mutable looping = true
  
positive.code:     if not exitWithError && count >= min then Reply(output) 
      else Reply(lastStatus, output, lastError)
  
  let parseManyRangeSepBy allowEnd min max (sep : Parser<'b, 'u>) (parser : Parser<'a, 'u>) (stream : CharStream<'u>) =
      let output = new ResizeArray<'a>(capacity = min)
      let mutable count = 0
      let mutable looping = count < max
  
negative.code: module FParsec.Pipes.Many
  open FParsec
  
  let private parseManyRange min max (parser : Parser<'a, 'u>) (stream : CharStream<'u>) =
      let output = new ResizeArray<'a>(capacity = min)
      let mutable count = 0
      let mutable looping = count < max
  