{for(;n=$0;$0=n-=sub(/1?./,_)$0)print}1