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