#!/bin/rc
for(i in *) mv $"i $1^_^`{echo $"i |
	sed 's/[0-9]*_[0-9]*-[0-9]*_[0-9]*-[0-9]*_//g' |
	sed 's/[0-9]*_[0-9]*_[0-9]*-[0-9]*_[0-9]*-[0-9]*_//g' |
	sed 's/ /_/g' |
	sed 's/\(/_/g' |
	sed 's/\)/_/g'
}
for(i in *_werc){ mv $i _werc }
rm _werc/smak/thumb/*