anchor.diff:              return! Formlet.OfDoc (fun () ->
                   res
                   |> Seq.map (fun (b, c, d) ->
  -                    p [text (sprintf "%s %b %A" b c d)]
  +                    Console.Log d
  +                    p [text (sprintf "%s %b %s" b c (Country.ToString d))]
                       :> Doc)
                   |> Doc.Concat)
           }
           |> Formlet.WithFormContainer
           |> Formlet.RunWithLayout Layout.Table (fun x ->
  -            Console.Log x
               JS.Window?foo <- x)
   
   module Server =
  
positive.code:     type Country =
          | [<Constant "HU">] HU
          | [<Constant "FR">] FR
  
      let Pair flX flY =
          Formlet.Return (fun x y -> (x, y))
  
negative.code:                 <*> Controls.Select HU [HU, "Hungary"; FR, "France"]
                  |> Formlet.Horizontal)
  //        Formlet.Many f1
  //        |> Formlet.WithSubmit "Submit"
          Formlet.Do {
              let! res =
                  manyModel
  