binary scan ���@�.���j��j c* a
foreach n $a {
set j 0
while {[incr j]<9} {append k [expr \$n%2]
set n [expr \$n/2]}
append k \ }
puts $k