type token = | XML_ELT_IDENT of string| WHITESPACE of string| TRANSCLUDE| TITLE| TEXT of string| TEX| TAXON| TAG| SUBTREE| SCOPE| RSQUARE| RPAREN| REF| RBRACE| QUERY_TREE| QUERY_TAXON| QUERY_TAG| QUERY_OR| QUERY_NOT| QUERY_META| QUERY_AUTHOR| QUERY_AND| PUT| PRIM of Core.Prim.t| PATCH| PARENT| OPEN| OBJECT| NUMBER| NAMESPACE| META| LSQUARE| LPAREN| LET| LBRACE| IMPORT| IDENT of string| HASH_LBRACE| HASH_HASH_LBRACE| GET| EXPORT| EOF| DEFAULT| DEF| DECL_XMLNS of string| DATE| CONTRIBUTOR| CALL| AUTHOR| ALLOCval main : (Lexing.lexbuf -> token) -> Lexing.lexbuf -> Core.Code.t