sub decode3 {
	my ($diff, $delta, $next);
	$diff = $_[0];
	$delta = -$_[0];
	$diff -= $delta += $_ for @_;
	$_[0] = $diff/@_;
	return map { $next += $_ } @_;
}