Fizzbuzz

proc fizzBuzz {number} {
    if { [expr $number % 15] == 0 } {
        puts "FizzBuzz"
    } elseif { [expr $number % 5] == 0 } {
        puts "Buzz"
    } elseif { [expr $number % 3] == 0 } {
        puts "Fizz"
    } else {
        puts $number
    }
}

for {set i 0} {$i < 100} {incr i} {
    fizzBuzz $i
}