| "name" { out "name"; TP.NAME }
| "table" { out "table"; TP.TABLE }
| "class" { out "class"; TP.CSS }
+ | "(*" { block lexbuf; token lexbuf }
| eof { TP.EOF }
+and block = parse
+ | "*)" { () }
+ | "(*" { block lexbuf; block lexbuf }
+ | STR { block lexbuf }
+ | _ { block lexbuf }