Evaluated proc hex_distance {a b} {expr abs([hex2dec $a]-[hex2dec $b])}