#! /usr/local/bin/perl

$InputSize = 0;

while (<>) {
    chop;

    if ( m,< /users/fp/partain/bib/comp.bib, ) {
	$InputSize = 625643;
	print "$_\n";
    } elsif ( m,\$bghc/lib/libHS_p.a, ) {
	$InputSize = 9352492;
	print "$_\n";
    } elsif ( m,\$bghca/lib/libHS_p.a, ) {
	$InputSize = 25455204;
	print "$_\n";

    } elsif ( /^\s*(\d+\.\d+)u (\d+\.\d+)s / ) {
	$UserSysTime = $1 + $2;
	$BytesPerSec = $InputSize / $UserSysTime;
	printf "%.0f\t%s\n", $BytesPerSec, $_;
    }
}