anchor.diff:  
   [<JavaScript>]
   let Link (submit: Writer<unit>) =
  -    A [Attr.HRef "#"]
  +    A [HRef "#"]
       |>! OnAfterRender (fun e ->
           JQuery.JQuery.Of(e.Body).On("click", fun el ev ->
               submit.Trigger(Success())
  
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:     ||> Seq.map2 (fun (_, label) input ->
          let id = nextId()
          Span [
              input -< [Id id]
              Label [For id; Text label]
          ])
      |> Div
  
  