ibase:2;printf(?t,"~8,'0b",eval_string(ssubst("*",",",?read\-line())));