read `ExpSP.txt`:

K:=4:
N:=100:

L:=GridGrS(K,x,N);

print(``):

if nops(L)<K-1 then
 print(N, `is not enough to get up to r=`,  K):
 print(`make it bigger`):
 print(`This took`, time(), `seconds. `):
 fi:

lprint(L):

print(time()):

quit: