foreach i ( nl?? )
? echo $i
? cd $i
? foreach j (*.ug *.ugnet)
? echo $i/$j
? echo "def " $i/$j ";" >> ../new.defs
? echo "    " include $i/$j ";" >> ../new.defs
? echo "end;" >> ../new.defs
? end
? cd ..
? end