anchor.diff:                  JS.Window.History.PushState(null, null, url)
           )
           var
  +
  +open System.Runtime.CompilerServices
   
   [<Extension; JavaScript>]
   type RouterExtensions =
  
positive.code:             set (cur())
  
          JQuery.JQuery.Of(JS.Document.Body).Click(fun el ev ->
              let target = ev.Target
              if target.LocalName = "a" then
                  let href = target.GetAttribute("href")
                  if not (isNull href) then
                      let p = href |> Route.FromUrl
                      match parse p with
                      | Some a -> 
                          set a
                          ev.PreventDefault()
                      | None -> ()
          ).Ignore
          
          var.View
  
negative.code: open WebSharper
  open WebSharper.JavaScript
  open WebSharper.Sitelets
  
  [<CompiledName "InstallRouter">]
  [<JavaScript>]
  