sections *.fits > temp1
list = "temp1"
while (fscan (list, s1) != EOF) {
hselect (s1//"[0]", "ncombine", yes) | scan (i)
imexten (s1, output="none")
j = imexten.nimages
if (i != j)
    printf ("%30s %2d %2d\n", s1, i, j)
else
    ;
}
list = ""; delete temp1