カレントに１００個のフォルダがあります。
それらをそれぞれ圧縮してカレントに１００個のZIPファイルを作りたいです。
（ZIPファイルの名前はフォルダ名と同じ）

find execで行けそうなのですが、私の力量不足でうまくいかなくて
困っています。どなたか詳しい方教えて下さい。