#!/bin/rc
rfork e
svc=(9bbs alarm backup cgd clone grepfs rc-gemd rc-httpd rrss runq smtp smtpd sshd werc)
echo ps `{ps|wc -l}
for(i in $svc)
	echo $i `{ps|grep $i|wc -l}
echo queue `{walk /mail/queue|wc -l}