($a,$b,$c,$d)=glob<>; $r=$b-$a+31; print $c<=$r?1:$d<=$r?2:3;