//proc em' all

s = [//"25389-2.75"
//"26322-2.76"
//"26323-3.0"
//"26960-3.0"
"27321-3.0"
];

rp = pwd();

//clear("infoCollect");
infoCollect = fscanfMat(rp + "/collect.txt");

forceThisDir=%t;
for i=1:size(s,1);
	chdir(rp + "/" + s(i));

	for ch=0:9;
		clear("sp");
		exec("/work/sci/ipp/pixelSpect.sci");
		exec("/work/sci/ipp/forFilters.sci");
		fprintfMat(rp + "/collect.txt", infoCollect);
	end
end
