anchor.diff:          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
  +//    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()
  
positive.code:                             Addr1Abs
                              (fun col row ->
                                  Address.fromA1(row, col, us.WorksheetName, us.WorkbookName, us.Path)))
                          <!> "AddrA1"
      let AnyAddr = ((attempt AddrIndirect)
                    <|> (attempt AddrR1C1)
                    <|> AddrA1)
                    <!> "AnyAddr"
  
      // Ranges
      let MoreAddrR1C1 = pstring ":" >>. AddrR1C1
      let RangeR1C1 = pipe2 AddrR1C1 MoreAddrR1C1 (fun r1 r2 -> Range(r1, r2))
      let MoreAddrA1 = pstring ":" >>. AddrA1
      let RangeA1 = pipe2 AddrA1 MoreAddrA1 (fun r1 r2 -> Range(r1, r2))
      let RangeAny = ((attempt RangeR1C1) <|> RangeA1) <!> "RangeAny"
  
      // Worksheet Names
      let WorksheetNameQuoted =
  
negative.code:                                                 | None      -> ReferenceRange(Env(us.Path, wbname, wsname), rng) :> Reference
                                              )
                                          )
      let RangeReferenceWorksheet = getUserState >>=
                                      fun us ->
                                          pipe2
  