anchor.diff:                  
               let page = 
                   Div [Attr.Data "role" "page"
  -                     Attr.Id "home"
  +                     Id "home"
                        header  :> _
                        content :> _]
                   
  
positive.code:             let content =
                  let checkbox (name: string) = 
                      Input [
                          Attr.Type "checkbox" 
                          Name name
                          Id name
                          Attr.Class "custom"
                      ]
                      -- 
                      Label [
                          Attr.For name
                          Text name
                      ] :> Pagelet
  
                  Div [
                      Attr.Data "role" "content"
                      Form [ Action "#"
                             Method "get"
                             // Name Field
                             ] -< [
                             Div [
                                Attr.Data "role" "fieldcontain"
                                Label [
                                  Attr.For "name"
                                  Text "Your name:"
                                ]  :> _
                                Input [
                                  Attr.Type "text"
                                  Attr.Name "name"
                                  Attr.Value ""
                                ]  :> _
                             ]
                             // Flavour field
  
negative.code:                               Attr.Data "role" "fieldcontain"
                                ] -< [
                                Label [
                                  For "quantity"
                                  Text "Number of cones:"
                                ]
                                Input [
                                  Type "range"
                                  Name "quantity"
                                  Id   "quantity"
                                  Value "1"
                                  Attr.Min "1" 
                                  Attr.Max "100"
                                ]
  