read  `PRIMESk.txt`:

Story4(isprime,0,400,4,6,30);


quit: