.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: mkf\&iles pref\& [quantity]
\(de	makes 'quantity' (def\&ault = 5) f\&iles, named pref\&1, pref\&2, ...
quantity=$\(Fl2-5\(Fi
i=1
while test \(34$i\(34 -le \(34$quantity\(34 
do
	\(fl $1$i
	i=\(34`expr $i + 1`\(34
done
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
