#!/usr/bin/env perl

my $gap = `getparam bcsgap param`;
chomp($gap);

open(F, "lastblock annotated.dat |") or die "oops!";

my $line = <F>;
$line =~ /(\S+)\s(\S+)\s/;
my $GSspin = $2;
print "$x 0 $GSspin\n";

my $cnt = 0;
while(<F>) {
    if ($cnt > 4) {
      last;
    }
    /(\S+)\s+(\S+)\s/;
    my $E = $1/$gap;
    my $spin = $2;
    $spin =~ s/,//;
    if ($E < 1) {
      print "$E $spin\n";
    }
    $cnt++;
}

close F;
	       
