for {set i 1} {$i <= 100} {incr i} {
    set x ""
    if {$i % 3 == 0} { set x "Fizz" }
    if {$i % 5 == 0} { set x "Buzz" }
    if {$i % 3 == 0 && $i % 5 == 0} { set x "FizzBuzz" }
    if {$i % 3 > 0 && $i % 5 > 0} { set x $i }
    puts $x
}