** Useful Procs **
======
proc sleep {time} {
   after $time set end 1
   vwait end
}
======

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