open Tk;;

let top = openTk() in 
update();
closeTk()
;;

print_string "OK\n"
;;