for (;;) {
$_ = <>; @F = split; $F[0] eq "#:factor" or last; $f = $F[1];
print <<EOF;
- f = $f;
- if (!ptest(f)) print " factor not prime", f;
- ff *= f;
+ f = $f;
+ if (!ptest(f)) print " factor not prime", f;
+ ff *= f;
EOF
$ll = 1;
}
if ($ll) {
print <<EOF;
- if (ff != p - 1) print " missing factors";
+ if (ff != p - 1) print " missing factors";
EOF
}
}