let open_file f = let inc = open_in f in let lex = Lexing.from_channel inc in let tok = token lex in { src=f ; tik=0 ; inc=inc ; lexbuf=lex ; token=tok }