Evaluated proc str2bin {str {sep " "} {endian B}} {m [explode $str] {x {dec2bin [str2dec $x ""] $endian}} $sep}