anchor.diff:                      |> Group.getSymbolGroup groups
                       |> mustBeSome // I am sorry. 😭
                   if groupStackTopGroup.EndSymbol = x.Symbol then
  -                    let! pop = sresult {
  +                    let! pop = state {
                           do! mapOptic ParserState.GroupStack_ List.tail
                           if groupStackTopGroup.EndingMode = Closed then
                               do! x.Data |> String.length |> consumeBuffer
  
positive.code:             let! isGroupStackEmpty = State.getOptic ParserState.GroupStack_ |> State.map List.isEmpty
              match tokens with
              | [] ->
                  let! newToken = produceToken grammar.DFA grammar.Groups |> (fun (StateResult x) -> x)
                  match newToken with
                  | Ok newToken ->
                      do! State.mapOptic ParserState.InputStack_ (List.cons newToken)
                      if newToken.Symbol = EndOfFile && not isGroupStackEmpty then
                          return GroupError
                      else
                          return TokenRead newToken
                  | Result.Error x -> return LexicalError x.[0]
              | newToken :: xs ->
                  match newToken.Symbol with
                  | Noise _ ->
  
negative.code:             match x with
              | [] ->
                  match lastAccept with
                  | Some x -> input |> getLookAheadBuffer lastAccPos |> newToken x
                  | None -> newToken EndOfFile ""
              | x :: xs ->
                  let newDFA =
                      trans.TryFind(currState)
  