#!/bin/rc

rfork n
path=($1)
i=1
grepstatus=' '
switch($#*){
case 2
while (! ~ $grepstatus *:errors*){
 	 a=`{eval /bin/ls $path(1) | /bin/grep $2}
	grepstatus = $status
	/bin/echo $a
	path = ($path(1)^'/*' $path)
	i=`{/bin/echo $i + 1 | /bin/bc}
	a=''
	}
case *
    echo 'usage: find pattern dir' >[1=2]
}