Evaluated proc bxor {b1 b2} {set out ""; for {set i 0} {i < [string length $b1]} {incr i} {append out [expr [lindex $i $b1]^[lindex $i $b2]]}; . $out}