#!/usr/local/bin/tclsh8.6
for {set i 1} {$i <= 30} {incr i} {
    if {![expr $i % 3] && ![expr $i % 5]} {
        puts "FizzBuzz"
    } elseif {![expr $i % 3]} {
        puts "Fizz"
    } elseif {![expr $i % 5]} {
        puts "Buzz"
    } else {
        puts $i
    }
}