RosettaCodeData/Task/Hello-world-Graphical/OCaml/hello-world-graphical-2.ocaml

let () =
  let main_widget = Tk.openTk () in
  let lbl = Label.create ~text:"Goodbye, World" main_widget in
  Tk.pack [lbl];
  Tk.mainLoop();;