
type operator = Html 

type expr =
    Binop of "<" * operator ">"
   | Str of string

