$_=<>;s/1?./print;$&-1/euntil/-/