anchor.diff:                                Attr.Data "role" "fieldcontain"
                                 ] -< [
                                 Label [
  -                                Attr.For "quantity"
  +                                For "quantity"
                                   Text "Number of cones:"
                                 ]
                                 Input [
  -                                Attr.Type "range"
  -                                Attr.Name "quantity"
  -                                Attr.Id   "quantity"
  -                                Attr.Value "1"
  +                                Type "range"
  +                                Name "quantity"
  +                                Id   "quantity"
  +                                Value "1"
                                   Attr.Min "1" 
                                   Attr.Max "100"
                                 ]
  
positive.code:                 
              let page = 
                  Div [Attr.Data "role" "page"
                       Attr.Id "home"
                       header  :> _
                       content :> _]
                  
  
negative.code:                            Div [
                                Attr.Data "role" "fieldcontain" 
                                ] -< [
                                Label [For "sprinkles"; Text "Sprinkles:"]
                                Select [
                                  Attr.Data "role" "slider"
                                  Name "sprinkles"
                                  Id   "sprinkles"
                                  ] -< [
                                  Tags.Option [Value "on"; Text "Yes"]
                                  Tags.Option [Value "off"; Text "No"]
                                ]
                             ]
                             // Store Field
                             Div [
                                Attr.Data "role" "fieldcontain" 
                                ] -< [
                                Label [For "store"; Text "Collect from store:"]
                                Select [
                                  Name "store"
                                  Id   "store"
                                  ] -< [
                                  Tags.Option [
                                      Value "mainStreet"
                                      Text "Main Street"
                                  ]
                                  Tags.Option [
                                      Value "libertyAvenue"
                                      Text "Liberty Avenue"
                                  ]
                                  Tags.Option [
                                      Value "circleSquare"
                                      Text "Circle Square"
                                  ]
                                  Tags.Option [
                                      Value "angelRoad"
                                      Text "Angel Road"
                                  ]
                                ]
                             ]
                             Div [
                                Class "ui-body ui-body-b"
                                ] -< [
                                FieldSet [
                                  Class "ui-grid-a"
                                  ] -< [
                                  Div [ 
                                      Class "ui-block-a"
                                      Button [
                                          Attr.Data "theme" "a"
                                          Type "submit"
                                          Text "Cancel"
                                      ] :> _
                                  ]
                                  Div [
                                      Class "ui-block-b"
                                      ] -< [
                                      Button [
                                          Attr.Data "theme" "a"
                                          Type "submit"
                                          Text "Order Ice Cream"
                                      ]
                                  ]
  