fn 9pfind {
	dir = $1 {
		wmiir ls $dir |
		while (d = `{read}) {
			echo $dir$d
			if(~ $d */)
				9pfind $dir$d
		}
	}
}