$!set ver
$ write sys$output "final copy ''p1' to ''p2'"
$! sh proc
$ copy 'p1' 'p2' 
$ set acl /default 'p2'
$ set file /prot=(o:rewd,g:rew,w:rew,s:rew)  'p2'
$ delete /nolog 'p1';
$
$! At this point, if 'p2' is in the RCS reference directory, you can add a
$! privileged program to change p2's UIC to a constant that is not any of
$! the participating programmers and then have this privileged program
$! purge that RCS reference directory...
$
$ write sys$output " "
$set nover
$ exit