(* Scanner *) 

{ 
open Parser 
exception Eof
}

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