anchor.diff:      type Action = 
           | Toggle
       
  -    let update (model : Model) (action : Action) =
  +    let update env (model : Model) (action : Action) =
           match action with
               | Toggle -> { model with isActive = not model.isActive }
   
  
positive.code:             for case in model.choices do yield option [] [text (sprintf "%s" case)]
         ]  
  
  [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  module Toggle = 
      type Model = Toggle
  
negative.code:             ]
      ]
  
      let initial = { content =  "initial" }
  
      let app = {
          initial = initial
          update = update
          view = view
          subscriptions = Subscriptions.none
          onRendered = OnRendered.ignore
      }
  
  [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  module Numeric = 
      open Aardvark.Base
  