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