sub f{my$i=pop;$v[$i]or$v[$i]=$%,$a[$i]=~$",$x+=$m=$`,$v[$']==$%?$==$':f($');$m-=$-=$m-$a[$i];$i-$=or$x+=$m}@a=<>;$==!++$%,f$_ for 1..$#a;printf'%.1f',$x/2