anchor.diff:      type Action = 
           | Change of string
   
  -    let update (model : Model) (action : Action) =
  +    let update env (model : Model) (action : Action) =
           match action with
               | Change x -> { model with content = x }
   
       let view (model : Model) : DomNode<Action> =
           div [clazz "ui input"] [
               input [
  -                //Style ["text-align","right"]
  +                Style ["text-align","right"]
                   attribute "value" model.content
                   attribute "type" "text"; //attribute "placeholder" "numeric";
                   //attribute "size" "6"
  
positive.code:         | Decrement
          | Set of string
  
      let initial = {
          value   = 1.0
          min     = -1.0
          max     = 5.0
          step    = 0.5
      }
  
      let update env (model : Model) (action : Action) =
          match action with
  
negative.code:             for case in model.choices do yield option [] [text (sprintf "%s" case)]
         ]  
  
      let initial = {
          choices = ["Lamber"; "Phong"; "Oren"]
          selected = "Phong";
      }
  
      let app = {
          initial = initial
          update = update
          view = view
          subscriptions = Subscriptions.none
          onRendered = OnRendered.ignore
      }  
  
  [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  module Toggle = 
      type Model = Toggle
  