anchor.diff:          match reply.Status with
           | Ok -> let endPosition = stream.Position
                   let result = reply.Result :> NodeBase
  -                if isTracked result then
  +                if isStartTracked result then
                       result.StartLocation <- lexemLocation startPosition
  +                if isEndTracked result then
                       result.EndLocation <- lexemLocation endPosition
                   reply
           | _  -> reply
  
positive.code: open Lens.SyntaxTree.SyntaxTree.Expressions
  open Lens.SyntaxTree.SyntaxTree.Operators
  open Lens.SyntaxTree.Utils
  
  let keywords = Set.ofList ["using"
                             "record"
  
negative.code:                            "false"
                             "null"]
  
  let valueToList parser = parser >>= (Seq.singleton >> Seq.toList >> preturn)
  
  let space = pchar ' '
  