#!/bin/rc 

switch($#*){
case 2
path='*'
while(){
	eval /bin/chmod $*/$path >[2] /dev/null
	chmodstatus=$status
	path=$path^'/*'
	if (~ $chmodstatus *stat) exit
}
case *
	echo 'usage: chmodr option dir' >[1=2]
}