read `PRIMESk.txt`:


for K from 20 by  20 to 60 do

Story4a(isprime,0,500,4,6,K);

od:

quit: