anchor.diff:  
   module SampleInternals =
       
  +
  +    [<JavaScript>]
  +    let SetAttr attr value elem =
  +        elem
  +        |>! OnAfterRender (fun elem ->
  +                JQuery.JQuery.Of(elem.Body).Attr(attr, value).Ignore)
  +
  +    [<JavaScript>]
  +    let AddDataRole role elem = SetAttr "data-role" role elem
  +        
       [<JavaScript>]
       let SimplePage () = 
           let jq = JQuery.Mobile.MobileJQ.JQuery // should trigger webresource.
           let header =
               Div [H1 [Text "Page Title"]]
  -            |>! OnAfterRender (fun elem ->
  -                JQuery.JQuery.Of(elem.Body).Attr("data-role", "header").Ignore)
  +            |> AddDataRole "header"
  +
           let content =
               Div [P [Text "Lorem ipsum dolor sit amet, consectetur adipiscing"]]
  -            |>! OnAfterRender (fun elem ->
  -                JQuery.JQuery.Of(elem.Body).Attr("data-role", "content").Ignore)
  +            |> AddDataRole "content"
  +
           let footer =
               Div [H4 [Text "Page Footer"]]
  -            |>! OnAfterRender (fun elem ->
  -                JQuery.JQuery.Of(elem.Body).Attr("data-role", "footer").Ignore)
  -        
  +            |> AddDataRole "footer"
  +
           let page = 
               Div [header
                    content
                    footer]
  -            |>! OnAfterRender (fun elem ->
  -                JQuery.JQuery.Of(elem.Body).Attr("data-role", "page").Ignore)
  +            |> AddDataRole "page"
  +
           page    
   
       [<JavaScript>]
  
positive.code:         let home =
              let header =
                  Div [H1 [Text "Home"]]
                  |>! OnAfterRender (fun elem ->
                      JQuery.JQuery.Of(elem.Body).Attr("data-role", "header").Ignore)
          
              let content =
                  Div [P [A [Attr.HRef "#about"; Text "About this app"]]]
                  |>! OnAfterRender (fun elem ->
                      JQuery.JQuery.Of(elem.Body).Attr("data-role", "content").Ignore)
          
              let page = 
                  Div [Attr.Id "home"
                       header  :> IPagelet
                       content :> IPagelet]
                  |>! OnAfterRender (fun elem ->
                      JQuery.JQuery.Of(elem.Body).Attr("data-role", "page").Ignore)
              page
  
          let about =
              let header =
                  Div [H1 [Text "About This App"]]
                  |>! OnAfterRender (fun elem ->
                      JQuery.JQuery.Of(elem.Body).Attr("data-role", "header").Ignore)
          
              let content =
                  Div [P [Text "This app rocks"
                          A [HRef "#home" 
                             Text "Go home!"] :> IPagelet
                          ]
                      ]
                  |>! OnAfterRender (fun elem ->
                      JQuery.JQuery.Of(elem.Body).Attr("data-role", "content").Ignore)
          
              let page = 
                  Div [Attr.Id "about"
                       header  :> IPagelet
                       content :> IPagelet]
                  |>! OnAfterRender (fun elem ->
                      JQuery.JQuery.Of(elem.Body).Attr("data-role", "page").Ignore)
              page
          
          Div [
  
negative.code:     [<JavaScript>]
      override this.Body = 
          // SampleInternals.SimplePage () :> IPagelet
          // SampleInternals.SimpleNavigation () :> IPagelet
          SampleInternals.FormTypes () :> IPagelet