RosettaCodeData/Task/Loops-Foreach/Tcl/loops-foreach-3.tcl

foreach i {1 2 3} j {a b c} {
    puts "$i,$j"
}