#puts -nonewline stdout "info script\r\n"
#puts stdout "[info script]"
puts stdout "argc: $::argc"
puts stdout "argv one arg per line, each line followed by dotted line."
foreach a $::argv {
    puts stdout $a
    puts stdout [string repeat - 40]
}

#it can be useful to have a shutdown delay when testing with a launch mechanism that doesn't capture the output of the launched process - so that we can see the output before the process exits.
#(e.g running from windows explorer to test the arguments in the registry for file associations and shell open commands)
#after 10000