#!/bin/sh
# see LJ 9-96 p.61
(cd ${1-.}; pwd)
find ${1-.} -type d -print | sort -f | sed -e "s,^${1-.},," -e "/^$/d" -e \
"s,[^/]*/\([^/]*\)$,\`-----\1," -e "s,[^/]*/,|     ,g"
