#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]
}