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