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:                            Div [
                                Attr.Data "role" "fieldcontain" 
                                ] -< [
                                Label [Attr.For "sprinkles";Text "Sprinkles:"]
                                Select [
                                  Attr.Data "role" "slider"
                                  Attr.Name "sprinkles"
                                  Attr.Id   "sprinkles"
                                  ] -< [
                                  Default.Tags.Option [Attr.Value "on"; Text "Yes"]
                                  Default.Tags.Option [Attr.Value "off"; Text "No"]
                                ]
                             ]
                             // Store Field
                             Div [
                                Attr.Data "role" "fieldcontain" 
                                ] -< [
                                Label [Attr.For "store"; Text "Collect from store:"]
                                Select [
                                  Attr.Name "store"
                                  Attr.Id   "store"
                                  ] -< [
                                  Default.Tags.Option [
                                      Attr.Value "mainStreet"
                                      Text "Main Street"
                                  ]
                                  Default.Tags.Option [
                                      Attr.Value "libertyAvenue"
                                      Text "Liberty Avenue"
                                  ]
                                  Default.Tags.Option [
                                      Attr.Value "circleSquare"
                                      Text "Circle Square"
                                  ]
                                  Default.Tags.Option [
                                      Attr.Value "angelRoad"
                                      Text "Angel Road"
                                  ]
                                ]
                             ]
                             Div [
                                Attr.Class "ui-body ui-body-b"
                                ] -< [
                                FieldSet [
                                  Attr.Class "ui-grid-a"
                                  ] -< [
                                  Div [ 
                                      Attr.Class "ui-block-a"
                                      Button [
                                          Attr.Data "theme" "a"
                                          Attr.Type "submit"
                                          Text "Cancel"
                                      ] :> _
                                  ]
                                  Div [
                                      Attr.Class "ui-block-b"
                                      ] -< [
                                      Button [
                                          Attr.Data "theme" "a"
                                          Attr.Type "submit"
                                          Text "Order Ice Cream"
                                      ]
                                  ]
  
negative.code:             let content =
                  let checkbox (name: string) = 
                      Input [
                          Type "checkbox" 
                          Name name
                          Id name
                          Class "custom"
                      ]
                      -- 
                      Label [
                          For name
                          Text name
                      ] :> Pagelet
  
                  Div [
                      Attr.Data "role" "content"
                      Form [ Attr.Action "#"
                             Method "get"
                             // Name Field
                             ] -< [
                             Div [
                                Attr.Data "role" "fieldcontain"
                                Label [
                                  For "name"
                                  Text "Your name:"
                                ]  :> _
                                Input [
                                  Type "text"
                                  Name "name"
                                  Value ""
                                ]  :> _
                             ]
                             // Flavour field
  