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