6 lines
111 B
Tcl
6 lines
111 B
Tcl
set list1 {a b c}
|
|
set list2 {A B C}
|
|
set list3 {1 2 3}
|
|
foreach i $list1 j $list2 k $list3 {
|
|
puts "$i$j$k"
|
|
}
|