$_=<>=~$"x$`.$/^'
'x($`-$');1while print,s/01(1*)(0*)$/10$2$1/