(let amount (toNumber (input "ms to sleep for> ")))
(print "Sleeping...")
(sys:sleep amount)
(print "Awake!")