$_=<>;eval"y/0-$&/1-$&0/",print$&while s/.//