anchor.diff:  type CompletionResponse = 
     {
       Name: string
  -    Glyph: int
  +    Glyph: string
  +    GlyphChar: string
     }
   
   type ProjectResponse =
  
positive.code:                                   prAsJson { Kind = "helptext"; Data = helptext }
  
                        prAsJson { Kind = "completion"
                                   Data = [ for d in decls.Items do yield { Name = d.Name; Glyph = d.Glyph } ] }
  
                        let helptext =
                          Seq.fold (fun m (d: FSharpDeclarationListItem) -> Map.add d.Name d.DescriptionText m) Map.empty decls.Items
  
negative.code:                   match state.OutputMode with
                    | Text ->
                        printAgent.WriteLine "DATA: completion"
                        for d in decls.Items do printAgent.WriteLine(sprintf "%s" d.Name)
                        printAgent.WriteLine "<<EOF>>"
                        main state
                    | Json ->
  