read `PRIMESk.txt`:



Story4a(isprime,0,1000,4,6,80);


quit: