anchor.diff:                                                  | None      -> ReferenceRange(Env(us.Path, wbname, wsname), rng) :> Reference
                                               )
                                           )
  -                                        <!> "RangeReferenceWorkbook"
       let RangeReferenceWorksheet = getUserState >>=
                                       fun us ->
                                           pipe2
  
positive.code:         isDigit(c) || isLetter(c) || c = '-' || c = ' '
  
      // Special breakpoint-friendly parser
      let BP (p: Parser<_,_>)(stream: CharStream<'b>) =
          printfn "At index: %d, string remaining: %s" (stream.Index) (stream.PeekString 1000)
          p stream // set a breakpoint here
  
      let (<!>) (p: Parser<_,_>) label : Parser<_,_> =
          fun stream ->
              printfn "%A: Entering %s" stream.Position label
              let reply = p stream
              printfn "%A: Leaving %s (%A)" stream.Position label reply.Status
              reply
  
      // Grammar forward references
      let (ArgumentList: P<Expression list>, ArgumentListImpl) = createParserForwardedToRef()
  
negative.code:                                                 | None      -> ReferenceAddress(Env(us.Path, wbname, wsname), addr) :> Reference
                                              )
                                          )
      let AddressReferenceWorksheet = getUserState >>=
                                          fun us ->
                                              pipe2
  