anchor.diff:  
   [<JavaScript>]
   let TextArea (stream: Stream<string>) =
  -    let i = Default.TextArea []
  +    let i = Tags.TextArea []
       match stream.Latest with
       | Failure _ -> ()
       | Success x -> i.Value <- x
  
positive.code: [<JavaScript>]
  let WithLabel label element =
      let id = nextId()
      Span [Label [Attr.For id; Text label]; element -< [Attr.Id id]]
  
  [<JavaScript>]
  let WithLabelAfter label element =
      let id = nextId()
      Span [element -< [Attr.Id id]; Label [Attr.For id; Text label]]
  
  [<JavaScript>]
  [<Inline>]
  
negative.code: [<JavaScript>]
  let CheckBox (stream: Stream<bool>) =
      let id = nextId()
      let i = Tags.Input [Type "checkbox"; Id id]
      match stream.Latest with
      | Failure _ -> ()
      | Success x -> i.Body?``checked`` <- x
  