print while<>=~/ /?$_=0 x($`-$').1x$'.$/:s/01(1*)(0*)$/10$2$1/