sub isprim
{
   my $unaer = (1 x shift);

   return ($unaer !~ /^(11+)\1+$/);
}