First commit of partial RosettaCode contents.

Pushing this for testing purposes. Lots of work still needed.

Task/FizzBuzz/Tcl/fizzbuzz-2.tcl

@@ -0,0 +1,4 @@
+while {[incr i] < 101} {
+    set fb [if {$i % 3 == 0} {list Fizz}][if {$i % 5 == 0} {list Buzz}]
+    if {$fb ne ""} {puts $fb} {puts $i}
+}

Task/FizzBuzz/Tcl/fizzbuzz.tcl

@@ -0,0 +1,9 @@
+proc fizzbuzz {n {m1 3} {m2 5}} {
+    for {set i 1} {$i <= $n} {incr i} {
+        set ans ""
+        if {$i % $m1 == 0} {append ans Fizz}
+        if {$i % $m2 == 0} {append ans Buzz}
+        puts [expr {$ans eq "" ? $i : $ans}]
+    }
+}
+fizzbuzz 100