set msg "-[file tail [info script]] done-"
if {$::argc >= 1} {
   set howlong [lindex $::argv 0]
   if {$::argc >=2} {
        set msg [lindex $::argv 1]
   }
} else {
   set howlong 1000
}
puts stdout "wait: $howlong"

set ::script_wait_var 0

if {[string is integer -strict $howlong]} {
    after $howlong {set ::script_wait_var 1}
}

vwait ::script_wait_var
puts -nonewline stderr $msg\n