proc bi2int ain {
        global zout
        set ain [split $ain ""]
        set zout 0
        foreach a $ain {
                set zout [expr $zout * 2]
                if {$a=="1"} {
                        set zout [expr $zout + 1]
                }
        }
}

proc int2bi ain {
        global zout
        set zout ""
        if {$ain == 0} {
                set zout "0"
        } else {
                while {$ain != 0} {
                        set i [expr $ain % 2]
                        set zout "$i$zout"
                        set ain [expr ($ain - $i) /2]
                }
        }
}

bi2int "0000"
puts $zout
int2bi $zout
puts $zout

bi2int "0011"
puts $zout
int2bi $zout
puts $zout

bi2int "0111"
puts $zout
int2bi $zout
puts $zout

bi2int "1111"
puts $zout
int2bi $zout
puts $zout