proc sleep {N} {
   after [expr {int($N * 1000)}]
}
puts "hai"
sleep 5
puts "hai after 5 waits"