RosettaCodeData/Task/Command-line-arguments/Tcl/command-line-arguments.tcl

if { $argc > 1 } {
    puts [lindex $argv 1]
}