Unpack compressed files into separate directories

Here is a little script to unpack all compressed files such as *.rar and put them into a separate directory:

for f in *.rar;do n=${f%.rar};mkdir "$n"; unrar x "$f" "$n/";done