Evaluated proc bin2char {binary {endian B}} {binary format [concat2 $endian 8] $binary}