#! /usr/bin/perl -w
#
use ExtUtils::testlib; # so that we find Digest::FP56x1xor here without installing it.
use Digest::FP56x1xor qw(gen_l cat_l gen cat x2l l2x);
use Data::Dumper;
my $t1 = shift || "@";
my $h1 = gen($t1);
my $t2 = shift || '1';
my $h2 = gen($t2);
print Dumper $t1, $h1, length($t1),
$t2, $h2, length($t2),
cat($h1,$h2), gen($t1.$t2);