anchor.diff:              (DynamicCustom (fun el x -> el?(id) <- x) v)
   
       let DynamicClass name view ok =
  -        As<Attr> (Attrs.Dynamic view ignore (fun el v ->
  +        As<Attr> (Attrs.Dynamic view (fun el v ->
               if ok v then DU.AddClass el name else DU.RemoveClass el name))
   
       let DynamicPred name predView valView =
  
positive.code:         Mk flags (A1 node)
  
      [<MethodImpl(MethodImplOptions.NoInlining)>]
      let internal Dynamic view init set =
          A1 (DynamicAttrNode (view, init, set))
          |> Mk AttrFlags.Defaults
  
      [<MethodImpl(MethodImplOptions.NoInlining)>]
  
negative.code:         let rec loop node =
              match node with
              | A0 -> ()
              | A1 n -> nodes.Enqueue n
              | A2 (a, b) -> loop a; loop b
              | A3 mk -> mk elem
              | A4 cb -> oar.Enqueue cb
  