cd /usr/tools/src
for file do
	fn=`basename $file .w`
	/usr/tools/ar1 xv $fn.w >1.tmp
	/usr/tools/rat4 $fn.r >$fn.f
	f77 -o /usr/tools/$fn $fn.f /usr/tools/lib.a
	rm $fn.f
	/usr/tools/trm - <1.tmp
	rm 1.tmp $fn.o
	done

