i=`ls RCS`
f=
for a in $i
do
	f="$f `basename $a ,v`"
done 
ci $f
