# HACK
# see if current time field value exceeds its maximum (reminder of % operation is greater than 0);
# if true, add reminder to
($time_date[$i+1], $time_date[$i]) = ($time_lim != -1 && ($rem = $time_date[$i]%$time_lim)) ? (($time_date[$i] - $rem) / $time_lim, $rem) : ($time_date[$i+1],$time_date[$i]);

# equivalent (not HACK)...
#       if ($rem  = $time_date[$i] % $time_lim) {
#           $time_date[$i+1] += ($time_date[$i] - $rem) / $time_lim;
#           $time_date[$i] = $rem;
#       }

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=<a HREF="/index.pl?node=%22ps%20-e%20-o%20pid%20"> "," $2 </a>;`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}