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

foreach n {0 1 5 50 9000} {
        puts [format "%4u: %b" $n $n]
}