#!/bin/rc
path=($1)
i=1
rmstatus=' '

switch($#*){
case 1
while (! ~ $rmstatus *:errors){
	eval /bin/ls $path(1) > /dev/null >[2=1]
	rmstatus = $status
	path = ($path(1)^'/*' $path)
	i=`{/bin/echo $i + 1 | /bin/bc}
}
i=`{/bin/echo $i + 1 | /bin/bc}
j=1

while (! ~ $j $i) {
	eval /bin/rm $path($j) > /dev/null >[2=1]
	j=`{/bin/echo $j + 1 | /bin/bc}
}
case *
    echo 'usage: rmdir dir' >[1=2]
}