// lazy primes 

/ fake it with cache to P:  p 17

P:,2;p:{while[~x<#P;n:*|P;while[|/k=_ k:n%P@&~n>P*P;n+:1];P,:n];P x}