read  `PRIMESk.txt`:

Story4(n->type(sqrt(n),integer),2,1000,4,6,10);


quit: