Display a GUI window. The window need not have any contents, but should respond to requests to be closed.

let () =
  let top = Tk.openTk() in
  Wm.title_set top "An Empty Window";
  Wm.geometry_set top "240x180";
  Tk.mainLoop ();
;;