xon
cat $1.w >$1.r
ar xv $1.w $1cbl
ar xv $1cbl
ar dv $1.r $1cbl
rc -v $1.r
ar t $1cbl | rm -v
rm $1cbl $1.r