$,=$/;s/./${$&>-$'}["@-"]|=$a.$&/ge,$a.=$"while$_=sprintf"%b",ord(getc)*ord getc;print@1