#!/afs/athena/contrib/perl/perl
if ($#ARGV < 1) {
    $fname = "/mit/bitbucket/zephyr-log/.stats";
    }

open(INFILE, $fname) || die "couldn't open $fname";

while (!eof(INFILE)) {
    $foo = 0;
    while ($foo == 0) {
	read(INFILE, $foo, 1);
	$foo = unpack("C", $foo);
    }
    seek(INFILE, -1, 1);
    read(INFILE, $foo, 4);
    $foo = unpack("N", $foo);
    if ($foo < 0 || $foo > 0x7fffffff) {
	print "U" . ($foo&0x7fffffff);
    }
    else {
	print "A$foo";
    }
    print " ";
    read(INFILE, $foo, 1);
    $foo = unpack("C", $foo);
    if ($foo == 255) {
	read(INFILE, $foo, 2);
	print unpack("n", $foo);
    }
    else {
	print $foo;
    }
    print " ";
    read(INFILE, $foo, 1);
    $foo = unpack("C", $foo);
    if ($foo == 255) {
	read(INFILE, $foo, 2);
	print unpack("n", $foo);
    }
    else {
	print $foo;
    }
    print " ";
    read(INFILE, $foo, 1);
    $foo = unpack("C", $foo);
    if ($foo == 255) {
	read(INFILE, $foo, 2);
	print unpack("n", $foo);
    }
    else {
	print $foo;
    }
    print " ";
    $/="\0";
    $_=<INFILE>;
    print substr($_, 0, length($_) - 1);
    print " ";
    $_=<INFILE>;
    print substr($_, 0, length($_) - 1);
    print " ";
    print "\n";
}