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