1 cd QMAIL

     2 cd queue

     3 for dir in mess info local remote

     4 do

     5   ( cd $dir; find . -type f -print ) | (

     6     cd $dir

     7     while read path

     8     do

     9       id=`basename "$path"`

    10       sub=`expr "$id" % SPLIT`

    11       mv "$path" "$sub"/"$id"

    12     done

    13   )

    14 done