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