type token =
  | TComment of (Ast_html.info)
  | TDoctype of (Ast_html.info)
  | TPi of (Ast_html.info)
  | Lelement of (Ast_html.info * string)
  | Lelementend of (Ast_html.info * string)
  | Relement of (Ast_html.info)
  | Relement_empty of (Ast_html.info)
  | Cdata of (Ast_html.info * string)
  | CdataSpecial of (Ast_html.info * string)
  | Space of (Ast_html.info * string)
  | Name of (Ast_html.info * string)
  | Eq of (Ast_html.info)
  | Literal of (Ast_html.info * string)
  | Other of (Ast_html.info)
  | EOF of (Ast_html.info)

val main :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> unit
