A-M baby

Task/Loops-Foreach/Tcl/loops-foreach-1.tcl

@@ -0,0 +1,3 @@
+foreach i {foo bar baz} {
+    puts "$i"
+}

Task/Loops-Foreach/Tcl/loops-foreach-2.tcl

@@ -0,0 +1,3 @@
+foreach {x y} {1 2 3 4} {
+    puts "$x,$y"
+}

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

@@ -0,0 +1,3 @@
+foreach i {1 2 3} j {a b c} {
+    puts "$i,$j"
+}

Task/Loops-Foreach/Tcl/loops-foreach-4.tcl

@@ -0,0 +1,3 @@
+foreach i {1 2 3} {x y} {a b c d e f} {
+    puts "$i,$x,$y"
+}