anchor.diff:                                      Attr.Class "ui-block-b"
                                       ] -< [
                                       Button [
  -                                        HTML5.Attr.Data "theme" "a"
  +                                        Attr.Data "theme" "a"
                                           Attr.Type "submit"
                                           Text "Order Ice Cream"
                                       ]
  
positive.code:     [<JavaScript>]
      let SimplePage () =
          let header =
              Div [HTML5.Attr.Data "role" "header"] -< [H1 [Text "Page Title"]]
  
          let content =
              Div [HTML5.Attr.Data "role" "content" ] -< [
                   P [Text "Lorem ipsum dolor sit amet, consectetur adipiscing"]
              ]
  
          let footer =
              Div [HTML5.Attr.Data "role" "footer" ] -< [H4 [Text "Page Footer"]]
  
          let page = 
              Div [HTML5.Attr.Data "role" "page" ] 
              -<  [header; content; footer]
  
          page
  
negative.code:     let EventTestPage () =
          let header =
              Div [
                  Attr.Data "role" "header" 
                  ] -< [
                  H1 [Text "Tap me!"]
              ]
  