#!/bin/tcsh

foreach i ( $* )
set dname=`echo $i | sed 's/.*-\([0-9][0-9][0-9][0-9]\)\([0-9]*\)-.*/\1/g'`
mkdir ../$dname >& /dev/null
mv $i ../$dname
echo $i
end
