Evaluated proc bin2hex {bin {sep {\x}} {endian B}} { str2hex [bin2str $bin $sep $endian] }