(* Scanner *) 

{ 
open Parser 
exception Eof
}

rule token = parse
  [' ' '\t' '\r' '\n'] { token lexbuf }
| "html" {HTML}
| ['a'-'z']+ as str { LITERAL_STR(str) }
| eof { EOF }
