anchor.diff:      /// <param name="input">The <see cref="InputStream"/>.</param>
       /// <exception cref="ParseError">An error did happen. In Farkle, this exception is caught by the <see cref="RuntimeFarkle"/></exception>
       let parseLALR fMessage (lalrStates: ImmutableArray<LALRState>) (oops: OptimizedOperations) (pp: PostProcessor<'TResult>) fToken (input: CharStream) =
  +        use objBuffer = new ObjectBuffer()
           let fail msg: obj = (input.LastTokenPosition, msg) |> Message |> ParserError |> raise
           let rec impl token currentState stack =
               let (|LALRState|) x = lalrStates.[int x]
  
positive.code: /// Functions to syntactically parse a series of tokens using the LALR algorithm.
  module LALRParser =
  
      let private unloadStackIntoBuffer length stack =
          let arr = ArrayPool.Shared.Rent length
          let rec impl stack i =
              match stack with
              | (_, x) :: xs when i >= 0 ->
                  Array.set arr i x
                  impl xs (i - 1)
              | _ -> arr
          impl stack (length - 1)
  
      /// <summary>Parses and post-processes tokens with the LALR(1) algorithm.</summary>
      /// <param name="fMessage">A function that gets called for every event that happens.
  
negative.code:                 match oops.LALRGoto productionToReduce.Head nextState with
                  | Some nextState ->
                      let resultObj =
                          let tokens = objBuffer.GetBufferFromStack handleLength stack
                          pp.Fuse(productionToReduce, tokens)
                      fMessage <| ParseMessage.Reduction productionToReduce
                      impl token nextState ((nextState, resultObj) :: stack')
                  | None -> failwithf "Error in state %d: GOTO was not found for production %O." nextState.Index productionToReduce
  