type operator = html 

type expr =
    Binop of operator
   | Str of string

