Following code snippet will convert integer number to binary.
set i 10 set res {} while {$i>0} { set res [expr {$i%2}]$res set i [expr {$i/2}] }
puts $res output:1010