#!/usr/athena/bin/perl

$start = 200;
$breakstart = 1750;
#$breakstart = 1550;
$breakend = 2033;
#$breakend = 1800;
$short = 6;
$long = 15;
while(<>){
	$ct++;
	split;
	shift(@_);
	shift(@_);
	shift(@_);

	push(@sh, $_[0]);
	push(@st, $_[1]);
	push(@ss, $_[2]);
	push(@sv, $_[3]);
	push(@lh, $_[0]);
	push(@lt, $_[1]);
	push(@ls, $_[2]);
	push(@lv, $_[3]);

	shift @sh if ($#sh > $short);
	shift @st if ($#st > $short);
	shift @ss if ($#ss > $short);
	shift @sv if ($#sv > $short);

	shift @lh if ($#lh > $long);
	shift @lt if ($#lt > $long);
	shift @ls if ($#ls > $long);
	shift @lv if ($#lv > $long);

	$x = join(" ", @_);
	$type = 1;
	if($ct < $start){
		$type = 2;
	}
	elsif(($ct > $breakstart) && ($ct < $breakend)){
		$type = 2;
	}

	if(0){
	$sh = &avg(@sh);
	$st = &avg(@st);
	$ss = &avg(@ss);
	$sv = &avg(@sv);

	$lh = &avg(@lh);
	$lt = &avg(@lt);
	$ls = &avg(@ls);
	$lv = &avg(@lv);
	}	
	$sh = $sh[0];
	$st = $st[0];
	$ss = $ss[0];
	$sv = $sv[0];
	$lh = $lh[0];
	$lt = $lt[0];
	$ls = $ls[0];
	$lv = $lv[0];

	if($type == 2){
		print "$x $sh $st $ss $sv $lh $lt $ls $lv $type\n";
	}	
	print "$x $sh $st $ss $sv $lh $lt $ls $lv $type\n";
}
sub avg {
    @x = @_;
    local($ct);		
    $ct=0;
    $tot=0;
    for $x (@x){
	$tot += $x;
	$ct++;
    }
    ($tot/$ct);
}