Let’s Play Osu!

You’re playing a game called Osu! Here’s a simplified version of it. There are n clicks in a game. For each click there are two outcomes: correct or bad. Let us denote correct as “O”, bad as “X”, then the whole play can be encoded as a sequence of n characters “O” and “X”.

Using the play sequence you can calculate the score for the play as follows: for every maximal consecutive “O”s block, add the square of its length (the number of characters “O”) to the score. For example, if your play can be encoded as “OOXOOOXXOO”, then there’s three maximal consecutive “O”s block “OO”, “OOO”, “OO”, so your score will be 2² + 3² + 2² = 17. If there are no correct clicks in a play then the score for the play equals to 0.

You know that the probability to click the i-th (1 ≤ i ≤ n) click correctly is p _i. In other words, the i-th character in the play sequence has p _i probability to be “O”, 1 - p _i to be “X”. You task is to calculate the expected score for your play.

Input

The first line contains an integer n (1 ≤ n ≤ 10⁵) — the number of clicks. The second line contains n space-separated real numbers p ₁, p ₂, …, p _n (0 ≤ p _i ≤ 1).

There will be at most six digits after the decimal point in the given p _i.

Output

Print a single real number — the expected score for your play. Your answer will be considered correct if its absolute or relative error does not exceed 10^- 6.

Examples

input

3
0.5 0.5 0.5

output

2.750000000000000

input

4
0.7 0.2 0.1 0.9

output

2.489200000000000

input

5
1 1 1 1 1

output

25.000000000000000

Note

For the first example. There are 8 possible outcomes. Each has a probability of 0.125.

• “OOO”  →  3² = 9;
• “OOX”  →  2² = 4;
• “OXO”  →  1² + 1² = 2;
• “OXX”  →  1² = 1;
• “XOO”  →  2² = 4;
• “XOX”  →  1² = 1;
• “XXO”  →  1² = 1;
• “XXX”  →  0.

So the expected score is 

Solution:

{$R-,S-,Q-,I-,O+}
var
  n,i: longint;
  p,s,sq: array [0..200010] of extended;
begin  
  read(n);
  for i:=1 to n do read(p[i]);
  sq[0]:=0; s[0]:=0;
  for i:=1 to n do
  begin
    s[i]:=(s[i-1]+1)*p[i];
    sq[i]:=sq[i-1]+(2*s[i-1]+1)*p[i];
  end;
  writeln(sq[n]:0:17);
end.