sub decode2 {
	my $total = shift;
	my $diff;
	$diff += $_ for @_;
	my $original= ($total-$diff)/(@_+1) - $_[0];
	my $next;
	my @results= map { $next += $_ } $original, @_;
	return @results;
}