proc sleep {time} {
   after $time set end 1
   vwait end
}

proc timestamp { } {
                return "\[[clock format [clock seconds] -format {%m/%d %H:%M:%S}]\] "
}