let reset fname = 
  lno_table := [0, (fname, 1)];
  name_table := [];
  scope_stack := [];
  lineno := 1;
  filename := ""