(* Scanner *) 

{ 
open Parser 
exception Eof
}

rule token = parse
  [' ' '\t' '\r' '\n'] { token lexbuf }
| "html" {HTML}
| ['a'-'z' 'A'-'Z']* as lxm { ID(lxm) }
| eof { EOF }
