#! /usr/bin/perl

use strict;
use warnings;

use String::CRC32;
#use Digest::CRC q(crc32);

use open IN => ':raw';
binmode(STDIN);

# reverse bits in byte(s)
my $revb = do {
	my @H = split //, q(084c2a6e195d3b7f);
	my $xlat = join "", map "\\x".$H[$_&15].$H[$_>>4], 0..255;
	eval qq(sub{ pop =~ tr/\\x00-\\xff/$xlat/r });
};

do {
	my ($crc, $len) = (0xffffffff, 0);

	local $/ = \32768;
	while (<>) {
		$len += length;
		$crc = crc32($_->$revb, $crc);
		last if eof;
	}
	my $zz = (pack "J<", $len) =~ s/\0*$//r;
	$crc = crc32($zz->$revb, $crc);

	$crc = unpack "V", (pack "N", $crc)->$revb;

	print "$crc $len $ARGV\n";

} while @ARGV;