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