let
skip input =
if
input.token <>
Eof
then
( input.tik <- 0 ; input.token <- token input.lexbuf )