#! /usr/local/bin/perl

while (<>) {
	chop;
	@p = split(/-/);
	print "mv $p[0]-$p[1]-$p[2]-$p[3] $p[0]-$p[1]-$p[3]-$p[2]\n";
}