#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	
	my $c=0;
	my $high_watermark=$this->high_watermark;
	for (my $x=$this->low_watermark; $x <= $high_watermark; $x++) {
		unlink $this->id."/$x" && $c++;
	}
	$this->high_watermark(0);
	$this->low_watermark(1);
	return $c;
}
