string s1, s2, s3
int i, n
for (i=1; i<=41; i+=1) {
s1="n"//i//"ccd*.fits"
s2="n"//i//"zeros"
delete(s2)
files(s1,>s2)
s3="Zeron"//i
count(s2) | scan (n)
if (n!=0)  
zerocombine("@"//s2,output=s3)
print(n)
}