$a=1x<>;print$z-=(substr($a,$`-/ /,$b=1+$'-$`)^=1x$b)=~y/1//*2-$b,$/for<>