f:stdin f:getline
"Sleeping..." . cr
eval sleep
"Awake!" . cr bye