anchor.diff:      let getTokenTypeTag (termDict:Dictionary<string,_>) =
           ("let getTag token = "|> wordL)
           @@-- (("match token with "|> wordL)
  -             @@ ([for kvp in termDict -> ["|"; kvp.Key; "->"; string kvp.Value]|> List.map wordL |> spaceListL] |> aboveListL))
  +             @@ ([for kvp in termDict -> ["|"; kvp.Key; "->"; string kvp.Value + "us"]|> List.map wordL |> spaceListL] |> aboveListL))
   
       let rulesArray rules = 
           ("let rules = "|> wordL)
  
positive.code:     }
  
  type CYKGeneartorImpl () =
      let header =
          [
           "namespace Yard.Generators.CYK"
           ; ""
           ; "open Yard.Core"
          ]
          |> List.map wordL |> aboveListL
  
      let tokenStreamEncoder = 
          wordL "let CodeTokenStream (stream:seq<CYKToken<cykToken,_>>) = "
          @@-- (wordL "stream |> Seq.map (fun t -> getTag t.Tag)")
          
  
      let tokenTypes (termDict:Dictionary<string,_>) =
          ("type cykToken = "|> wordL)
  
negative.code:           {StructuredFormat.FormatOptions.Default with PrintWidth=80}
  
      let genStartNTermID id =
          [wordL "let StartNTerm ="
          ; (string id |> wordL)]
          |> spaceListL
      
  