eval or exit print "$n is not prime.\n" for
<@{$"=',',[$n=pop]}-1/(1${\("/{@{[2..1+$n/2]}}"x2)})|0>,'
print "$n is prime.\n"'