Evaluated proc bin2str {binary {endian B} {sep " "}} {join [chunk [binary format $endian* $binary] 8] $sep}