puts stdout "::argc"
puts stdout  $::argc
puts stdout "::argv"
puts stdout "$::argv"
puts stdout -----------------------
foreach a $::argv {
    puts stdout $a
}
puts stdout -done-