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