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