#!/usr/bin/perl
#
# primegen - Prime generation helper for ICBM
# Emits a table of 64 48-bit primes on STDOUT

use 5.006_000;
use strict;
use Math::Pari;
use Crypt::Random;
use Crypt::Primes qw(maurer);

print "# This file contains the 48-bit primes table for ICBM.\n# Do not hand-edit it.\n\n";
for (my $i = 0; $i < 64; $i++)
{
    printf("%s\n", maurer(Size => 48));
}
exit (0);
