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