2. Type the following script and put it in a file and execute it in tclsh or wish using the source command. Please study carefully the meaning of each statement.

set line {welch:*:3116:100:BrentWelch:/usr/welch:/bincsh/} set lis [split $line :] set len [llength $lis] for {set i 0} { $i < $len} {incr i} { set element [lindex $lis $i] puts stdout "$element \n" }