#!perl -p040
$d=1;$\=(($x=$_+$.-1)>2)-$\;$\+=(($=-13)/100+1|0)*$d+$x%$d*$==~/12$/+(($&>/.\s/).0+$x-$d*2,$d,0)[$=<=>2]/10|0,$d.=0while$==$x/$d}{