while (<>) {
	chomp;
	$ligne = $_;
	/.*? (.*?):(.*?):(.*?):(.*?) (.*)/;
	$p1 = $1;$p2 = $2;$p3 = $3;$p4 = $4;$g = $5;
	if ($p1 <= $p2 && $p2 <= $p3 && $p3 <= $p4) {$d = $p1-$p4; print $d." ".$g." ".$p1." ".$p2." ".$p3." ".$p4."\n";}
	if ($p1 >= $p2 && $p2 >= $p3 && $p3 >= $p4) {$d = $p1-$p4; print $d." ".$g." ".$p1." ".$p2." ".$p3." ".$p4."\n";}
	
}

