$%-=(1-abs)/$l-1for($=,$y,$l)=<>;print$%+=$y<0||-!$=