sig
  type token =
      EOF
    | PCDATA of string
    | TAG_OPEN of (string * string)
    | TAG_OPEN_CLOSE of (string * string)
    | TAG_CLOSE of string
  val main :
    (Stdlib.Lexing.lexbuf -> Xml_right_parser.token) ->
    Stdlib.Lexing.lexbuf -> Xml_light_types.xml
end