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