let read fname =
  C_parserhelper.reset fname;
  let chan = open_in fname in
  let lexbuf = Lexing.from_channel chan in
  let t = C_parser.translation_unit C_lexer.token lexbuf in
  close_in chan;
  t