#!/bin/rc

nsamples=1000
sleeptime=0.1
npid=$1

{
	for(x in `{seq 1 $nsamples}){
		echo 'stk()' | acid $npid | sed 's/^acid: //g' | grep '\+0x' | sed 's/\+0x.*//g' | sed 's/\(.*//g' | tr '\xa' ','
		echo
		sleep $sleeptime
	}
} | sort | uniq -c | sort -r -n -k 1,1