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