RosettaCodeData/Task/Window-creation/OCaml/window-creation-1.ml

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