let myButton (label: option) = button [] [ cond label <| function | Some l -> text l | None -> empty ]
defunkt
