#!perl -p0a
$_=($-=$F[1]-$_)+!($_-$F[1]|$F[2]-$F[3]|$_<$F[2])