#!/bin/sh

 ls -l /proc/ | awk '{print $9}' |
 while read line
 do
	if [ -d "/proc/$line/task" ] ; then
		cat /proc/$line/comm | grep -E "^[A-Za-z]+d$"
		if [ $? -eq 0 ] ; then
#			cat /proc/$line/comm
			echo process $line
			echo -----------
   	    	ls -1 /proc/$line/task | cut -f1 -d '/' | 
			while read prid
			do
				echo task $prid
				cat /proc/$prid/stack
			done
			echo ----------- 
			echo
		fi
   	fi

 done
