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