puts "There are $argc arguments to this script"
puts "The name of this script is $argv0"

if {$argc > 0} {puts "The other arguments are: $argv" }

set k 1
foreach  i  $argv  {
   puts "arg $k is $i"
   incr k
}