for l in 1 2 3 4 5; do
f=quacks-ingredients-L$l.scad
cat >$f.tmp <<END
-// autogenerated by quacks-ingredients-updates-levels - do not edit
+// autogenerated by quacks-ingredients-updates-levels - do not edit
\$phase=$l;
module Token_L(){ Token_L$l(); }
//// toplevels-from:
END
mv -f $f.tmp $f
done
+
+f=quacks-ingredients-counts.scad
+cat >$f.tmp <<END
+// autogenerated - do not edit
+// update script is quacks-ingredients-updates-levels
+// source is quacks-ingredients-counts
+END
+
+for which in Base All Witches; do
+ ./quacks-ingredients-counts $which >>$f.tmp
+done
+mv -f $f.tmp $f
+
+egrep '^// [A-Z][a-z]* *[A-Za-z]' $f | sort