#!/bin/rc
if(~ $#* 1) id=$1
if not{
	eval `{help/parse -0}
	if(~ $#id 0){
		echo pc: no pid
		exit 1
	}
}
x=`{cat /mnt/help/new/ctl}
{
	echo A
	db $id < /dev/null | sed 1d
} | help/buf > /mnt/help/$x/ctl
{
	echo a
	echo '	'$id' pc	Close!'
} | help/buf > /mnt/help/$x/ctl
