read `Larcombe.txt`:


ra:=rand(1..10): 

for n from 5 to 10 do
a:=[seq([seq(ra(),i=1..n)],j=1..n)];
PaperN(a,{seq([i,i+1],i=1..n-1),[n,1]}):
od:

print(``):
print(`--------------------------`):
print(``):
print(`This took`, time(), `seconds .`):

quit: