#!perl -p
s/.(.)/sprintf"%-99b
",ord($1)*ord$&/eg;s/0+ //g;$o.=$/while s/^./$o.=$&;""/meg;*_=o;s/ +$//mg