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