anchor.diff:      let NewAttr name value =
           {
               Name = name
  -            Value = fun _ -> value
  +            Value = value
               Annotation = None
           }
   
  
positive.code:                 | Some a -> a.Requires
  
              member this.Write(meta, w) =
                  w.WriteAttribute(this.Name, this.Value meta)
  
              member this.Encode(meta, json) =
                  []
  
negative.code:                 match this with
                  | INodeContent n -> n.IsAttribute
                  | _ -> false
  
              member this.AttributeValue =
                  match this with
                  | INodeContent n -> n.AttributeValue
                  | _ -> None
  
              member this.Name =
                  match this with
                  | INodeContent n -> n.Name
                  | TagContent tc -> Some tc.Name
                  | TextContent _
                  | VerbatimContent _
                  | CommentContent _ -> None
  
              member this.Requires =
                  match this with
  