#!/usr/local/bin/perl

while(<>)
{
	($w,$n) = /(\d+)\s+(.*)/;
	print $w-$w{$n}, "\t$n\n" if $w{$n} && $w{$n} != $w; 
	$w{$n}=$w;
}