anchor.diff:  
   type Attr =
       | AppendAttr of list<Attr>
  -    | SingleAttr of string * string * option<WebSharper.Html.Client.IRequiresResources>
  +    | SingleAttr of WebSharper.Html.Server.Html.Attribute
   
       static member Create name value =
  -        SingleAttr(name, value, None)
  +        SingleAttr { Name = name; Value = value; Annotation = None }
   
       static member Append a b =
           AppendAttr [a; b]
  
positive.code: 
      let gen = System.Random()
  
      type Requires(reqs) =
  
          [<System.NonSerialized>]
          let reqs = reqs
  
          interface WebSharper.Html.Client.IRequiresResources with
              member this.Requires meta = reqs :> seq<_>
  
      let Handler (event: string) (q: Expr<#WebSharper.JavaScript.Dom.Event -> unit>) =
          let declType, name, reqs =
  
negative.code:                     match a.Parent with
                      | None -> acc
                      | Some p -> mk acc p
                  attr.Value <- String.concat "." (mk [name] a) + "(event)"
          SingleAttr attr 
  
      let rec AsAttributes attr : list<Attribute> =
          match attr with
          | AppendAttr a -> List.collect AsAttributes a
          | SingleAttr a -> [a]
  
  namespace WebSharper.UI.Next.Client
  
  