#!/bin/sh 

pwd=`pwd`

for i in `ls -1` ; do
    if [ -d $i ]; then
        printf " ...cleaning on %s\n" "$i"  >& 2;
        cd $i
        ./run_clean
        cd $pwd
    fi
done