"PRIME NUMBERS!" N1 = (NN. 1 + = #P,N.; ) $P F1 = N1 = ( FF . 1 + = %AF. - ^ %AF./F. * %A - 1 + [N0 = 0 ^ ] ) N. [ %A! "!" ] @ $$