#!/bin/rc rfork e p = `{ps | awk '/Broken/{print $2 " "$7}'} if(~ $#p 2){ echo 'echo ''lstk()'' | acid' $p(1) '#' $p(2) echo 'lstk()' | acid $p(1) exit $status } fn list{ while(! ~ $#* 0){ echo 'echo ''lstk()'' | acid' $1 '#' $2 shift; shift } } list $p