#!/usr/bin/perl
$energy=2.5e8;
while (<>) {
  chomp;
  $bin = $_;
  for ($i=0; $i<4; ++$i) {
    $val = <>;
    chomp $val;
    $bin += $val;
  }
  $bin *= 2246256;		# normalize to 1 km, fig 13, p48 889 propsal
  $bin /= (2540*2540);		# normalize to HS distances, 1/r^2
  print "$energy $bin\n";
  $energy += 5.0e8;
}