RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Tcl/loop-over-multiple-arrays-simultaneously.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"
}