#!/opt/local/bin/perl5.10 -w
use strict;
use lib 'lib';

use Math::Primality qw/ is_strong_pseudoprime /;
my $n = shift;
my $pp= is_strong_pseudoprime( $n );
print "$n:$pp\n";
