read "itall.txt":

lvl:=4:
phatlvl:=8:
spikelvl:=(phatlvl-lvl+2):

T:=gasket(phatlvl):

inpath:=cat("../data/level",lvl,"/"):
outpath:="../data/":

verts:=ourVertices(lvl):
verts:=subsop(1=NULL, 2=NULL, 3=NULL, verts):

for k from 1 to nops(verts) do
       	readFunc(T,12,cat(outpath,phatlvl,"phat",lvl,"spike.",k)):
	ourPlot2(T,spikelvl,12,cat(phatlvl,"p",lvl,"lspike.",k));
end do;