RosettaCodeData/Task/Sleep/OCaml/sleep-1.ocaml

6 lines
158 B
Plaintext

#load "unix.cma";;
let seconds = read_int ();;
print_endline "Sleeping...";;
Unix.sleep seconds;; (* number is integer in seconds *)
print_endline "Awake!";;