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

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