7 lines
226 B
Text
7 lines
226 B
Text
#load "unix.cma";;
|
|
#directory "+threads";;
|
|
#load "threads.cma";;
|
|
let seconds = read_float ();;
|
|
print_endline "Sleeping...";;
|
|
Thread.delay seconds;; (* number is in seconds ... but accepts fractions *)
|
|
print_endline "Awake!";;
|