A little snippet:
(From the internets.)
find ${1:-.} -type d -print | sed -e 's;[^/]*/;|____;g;s;____|; |;g'(From the internets.)
find ${1:-.} -type d -print | sed -e 's;[^/]*/;|____;g;s;____|; |;g'