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:     let view (model : Model) : DomNode<Action> =
              div [clazz "ui input"] [
                  input [
                      Style ["text-align","right"]
                      attribute "value" (String.Format("{0:0.00}", model.value)) // custom number formatting
                      attribute "type" "text"; attribute "placeholder" "numeric";
                      attribute "size" "6"
  
negative.code: 
      type Model = Choice
  
      type Action = Select of string    
  
      let update env (model : Model) (action : Action) =
          match action with
              | Select x -> { model with selected = x }
    
  