use strict;
use warnings;
use QKey qw/ randseq quantumencode analyze ynseq bobkey alicekey /;

# Alice
my @randseq = randseq(43);
my @quantumencode = quantumencode(@randseq);
# Bob
my @analyze = analyze(@quantumencode);
my @ynseq = ynseq(@analyze);
my @bobkey = bobkey(@analyze);
# Alice
my @alicekey = alicekey(\@ynseq, \@randseq);

print "@bobkey\n";
print "@alicekey\n";

__END__
0 1 1 1 0 1 0 0 0
0 1 1 1 0 1 0 0 0