let () =
  print_endline Sys.executable_name;
  print_endline Sys.argv.(0)