(* Scanner *) 
 
{ 
open Parser 
exception Eof
}

rule token = parse
  [' ' '\t' '\r' '\n'] { token lexbuf }
| "html"               { HTML }
| eof                  { EOF }
