eval 'exec perl -S $0 ${1+"$@"}'
     if $running_under_some_shell;

$last = 0;
$b = "";
print $ARGV[1];
while (<STDIN>) {
    chop;
    $a = substr($_, 1, 15);
    $lastb = $b;
    $b = substr($_, 19);
    if (!$lastb ne "" && hex($a) != $last) {
	printf STDOUT "%s %s/%s\n", hex($a) - $last, $ARGV[0], $lastb;
    }
    $last = hex($a);
}
