Evaluated proc hex_distance {a b} {- [hex2dec $a] [hex2dec $b]}