#!/bin/rc

fn list{
	l = `{ls -F $*}
	for(i in $l){
		if(~ $i */)
			list $i
		if not
			echo $i
	}
}

list $*