>prime
;

(prime=(1:?n & >10000:?max & 1:?l & !plus & !l));

(
plus=
    (
      !n:!max
    |
          !n+1:?n 
        &
          ~!!n 
        &
          (!l,!n):?l
        &
          ~!sieve
    |
      !plus
    )
);

(prod=!m*!n);

(sieve=put$!n & 1:?m & !slus);

(slus=
  (
    !prod:!max
  |
      (
        !m+1:?m
      &
        db:?!prod
      &
        !slus
      )
  )
);