#!/bin/sh
(cd ${1-.};pwd)
find ${1-.} -type d |sort -f | sed -e "s,^${1-.},," -e "/^$/d" -e \
	"s,[^/]*/\([^/]*\)$,\+--\1," -e \
	"s,[^/]*/,|   ,g"

#find ${1-.} -type d |sort -f | sed -e "s,^${1-.},," -e "/^$/d" -e \
#	"s,[^/]*/\([^/]*\)$,\`--\1," -e \
#	"s,[^/]*/,|   ,g"
