x,y,l=$<.map &:to_i z=x.abs p z/-l*-1-0**z+1+(y>0?y/-l*-1:y/l*-1+1)