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