RosettaCodeData/Task/Binary-digits/Tcl/binary-digits-2.tcl

for {set x 0} {$x < 16} {incr x} {
    puts [num2bin $x]
}
puts "--------------"
puts [num2bin 5]
puts [num2bin 50]
puts [num2bin 9000]