#!/usr/bin/perl


$lastval;
$curr;
$i = 1;

while(<>) {

   chomp;


   /(\d+)/;
   $curr = $1;

   $tmp = $curr - $lastval;
   $lastval = $curr;

   next if ($tmp < 0 );
   next if ($tmp > 60000 );

   print "$i $tmp\n";
   $i++;
}