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