#!/bin/sh
#
#
usage="Aufruf: `basename $0` Verzeichnis [Optionen für find]"

case $# in
        0)     echo "Verzeichnisangabe fehlt\n$usage" 1>&2; exit 1 ;;
        1)     test -d $1 || {
                      echo "Verzeichnisangabe fehlerhaft: $1\n$usage" 1>&2; \
                      exit 1 
               }
               dir=$1
               shift ;;
esac

path=`expr "/$dir" : '/\(.*/\)[^/][^/]*'`
find $dir "$@" -print |
  sed       -e '1n'                    \
        -e 's%^'"$path"'%%'        \
        -e 's/[^\/]*\//! ---->/g'  \
        -e 's/ ----> !/      !/g'
# End