#!/usr/bin/tclsh for {set i 0} {$i<[gets stdin]} {incr i} { set var {orange blue red green} set var [linsert $var 3 black white] puts $i }
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more