#!/usr/bin/perl
# 6M King

while (<>){
 s/\d+ \d+ (\d+) (\d+) (\d+) (\d+)/abs($1-$3)>abs($2-$4)?abs($1-$3):abs($2-$4)/e; 
 print   
}