#!/usr/bin/perl


$capA = 1;
$capB = 1;
$capC = 1;
$capD = 1;
$capE = 1;
$capF = 1;
$capG = 1;
$capH = 1;

# Main

$impA = 1/$capA;
$impB = 1/$capB;
$impC = 1/$capC;
$impD = 1/$capD;
$impE = 1/$capE;
$impF = 1/$capF;
$impG = 1/$capG;
$impH = 1/$capH;

$impCE = &doImpS($impC, $impE);
$impBD = &doImpP($impB, $impD);
$impCEBD = &doImpS($impCE, $impBD);
$impABCDE = &doImpP($impCEBD, $impA);

$impFG = &doImpS($impF, $impG);
$impFGH = &doImpS($impFG, $impH);

$impAll = &doImpP($impABCDE, $impFGH);

sub doImpP {
	local($impa, $impb) = @_;

	return 1/((1/$impa) + (1/$impb));
}

sub doImpS {
	local($impa, $impb) = @_;
	return $impa+$impb;
}