# file cerca140799
# soluzione del compito del 14 luglio 1999
# parte ricorsiva shell

cd $1

# incrementiamo il numero del livello
livello=`expr $livello + 1`
 
if test $livello = $2
then
  for i in *
  do
    if test -f $i -a -x $i
    then
      lista="$lista $i"
    fi
  done
  if test ! -z "$lista"
  then
    echo $lista 
    partec140799 $lista
  fi
else
  # ricerca ricorsiva
  # SOLO se non abbiamo raggiunto il livello richiesto
  for i in *
  do
    if test -d $i -a -x $i
    then
      $0 $i $2
    fi
  done
fi