10 lines
187 B
Text
10 lines
187 B
Text
:- object(sleep).
|
|
|
|
:- public(how_long/1).
|
|
|
|
how_long(Seconds) :-
|
|
write('Sleeping ...'), nl,
|
|
thread_sleep(Seconds),
|
|
write('... awake!'), nl.
|
|
|
|
:- end_object.
|