for i in `cat profiles`
do
   dirname $i >> alldirs
done
