chomp ($binary);
die ("not binary") if $binary =~/[^01]/;
&convb2d ($binary);