Evaluated proc bin2str {binary {endian B}} {binary format $endian* $binary}