#!/usr/bin/perl

open IN,"gier.debug";

$lasttrack=-1;
$lastcore=-1;
$lineno=0;
$lastlineno=-1;
while($l = <IN>)
{
  chomp($l);
  $lineno++;
  if($l =~ /^LK\s(\d+)\s(\d+)\s(\d+)$/)
  {
    $core = $1;
    $track = $2;
    $clock = $3;
    if($track == $lasttrack)
    {
      print "$track\t$lastcore\t$core\t$clock\t$lastlineno - $lineno\n";
    }
    $lastcore=$core;
    $lasttrack=$track;
    $lastlineno=$lineno;
  }
}