Plan 9 from Bell Labs’s /usr/web/sources/patch/broke-add-new-a-flag/broke
#!/bin/rc U=`{cat /dev/user} if(~ $#* 1){ U=$1 } if(~ $U -a){ U='.*' } ps | sed -n '/^'$U' .* Broken/s%[^ ]* *%~>/proc/% s% *.* (.*)%/ctl # \1% s%~%echo kill%p'