
type operator = Html 

type expr =
    Binop of operator
   | Str of string

