#!/usr/bin/perl
while (defined ($f = shift @ARGV)) {
	$f =~ s,/+$,,;
	($dir, $base) = $f =~ m|^(.*/)?(.*)$|;
	$zeroname = "0" x length($base);
	$name = $f;
	$nextname = "$dir$zeroname";
	print "$name\n";
	rename($name, $nextname) or die "can't rename";
	$name = $nextname;
	print "$name\n";
	while ($name =~ /0$/) {
		$nextname = $name;
		$nextname =~ s/0$//;
		$nextname =~ /0$/ or last;
		rename($name, $nextname) or die "can't rename";
		$name = $nextname;
		print "$name\n";
	}
	rmdir($name) or unlink($name) or die "can't rmdir / unlink";
	print "*\n";
}
system("sync") and die "can't sync";