anchor.diff:      let values = Array.ofSeq values
       let elts = values |> Array.map (fun (x, label) ->
           let id = nextId()
  -        Default.Tags.Option [Attr.Value id] -< [Text label])
  +        Tags.Option [Value id] -< [Text label])
       Select elts
       |>! OnChange (fun e ->
           if e.Body?selectedIndex >= 0 then
  
positive.code: 
  [<JavaScript>]
  let input ``type`` ofString toString (stream: Stream<'a>) =
      let i = Default.Input [Attr.Type ``type``]
      match stream.Latest with
      | Failure _ -> ()
      | Success x -> i.Value <- toString x
  
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
  