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