#!/bin/perl

$cmd="grep \"\\*\" " . $ARGV[0] ;
$d=`$cmd`;
@a=split(/ /, $d);
$first=1;
$lastMarker=0;
foreach $j ( @a ) {
  if($first == 1) {$first=0}
  else {
    if($j !~ /-1/) {
	  if($lastMarker > 0) {
		$sub=$lastMarker-$j;
	    print("$lastMarker-$j=$sub\n");
	  }
	  $lastMarker=$j;
	}
  }
}#foreach