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