#!/usr/local/plan9/bin/rc

# Example of recursion in rc

# crawl directories and list file names
fn crawl{
	pwd
	for(i in *){
		file = `{ls -ld $i}

		# check if $i is a directory
		if (~ $file(1) d*){
			cd $file(9)
			crawl
			cd ../
			pwd
		}
		if not lc -d $i
	}
}


# main program
cd `{pwd}
crawl