let run_clock size =
    try
        open_clock size
    with
        | Graphic_failure ("fatal I/O error") ->
            print_string "Hello!"
    print_current_time size
;;