kks_kill_spaces

find .  > tmp_find0

cat << EOF > sed_find

/^.$/ d

/ / {

i \\
qzfqzfqzf

s/\ /¶/g
p

s/¶¶/¶/g
s/¶/_/g


}


EOF


sed -f sed_find tmp_find0 > tmp_find1


for i in `cat tmp_find1`
 do
  if test $i = "qzfqzfqzf"
    then j=$i
  elif test x$j = "xqzfqzfqzf"
    then k=$j ; j=$i
  elif test x$k = "xqzfqzfqzf"
    then
     k=\"`echo $j | sed -e "s/¶/ /g" `\"

# minuscules or not minuscules
     if test $1
      then j=`echo $i | tr [:upper:] [:lower:] `
      else j=$i
     fi
    jj=`echo $j | sed -e "s/(/Q/ ; s/)/Q/ ; s/\.TXT/.txt/ ; s/\.DOC/.doc/ ; s/rep.re/repere/" `
    echo $k 
    echo "   moved to $jj"
    bash -c "mv $k $jj"
    k=void
  fi

done

rm sed_find
rm tmp_find*