Bill is developing a new mathematical theory for human emotions. His recent investigations are dedicated to studying how good or bad days influent people's memories about some period of life.

A new idea Bill has recently developed assigns a non-negative integer value to each day of human life.

Bill calls this value the emotional value of the day. The greater the emotional value is, the better the daywas. Bill suggests that the value of some period of human life is proportional to the sum of the emotional values of the days in the given period, multiplied by the smallest emotional value of the day in it. This schema reflects that good on average period can be greatly spoiled by one very bad day.

Now Bill is planning to investigate his own life and find the period of his life that had the greatest value. Help him to do so.

Input

There are several test cases in the input file. The first line of each case contains n - the number of days of Bill's life he is planning to investigate(1 ≤ n ≤ 100 000). The rest of the file contains n integer numbers a1, a2, ... an ranging from 0 to 10⁶ - the emotional values of the days. Numbers are separated by spaces and/or line breaks. Proceed to the end of file.

Output

For each test case, print the greatest value of some period of Bill's life in the first line. And on the second line print two numbers l and r such that the period from l-th to r-th day of Bill's life(inclusive) has the greatest possible value. If there are multiple periods with the greatest possible value,then print any one of them.

Sample Input

6
3 1 6 4 5 2

Sample Output

60
3 5

程序:

program zju_2642_mpq;

const maxn=100001;
var
  n,i,k,start,stops:longint;
  max,tmp:int64;
  sum:array[0..maxn] of int64;
  b:array[0..maxn] of longint;
  a:array[0..maxn] of longint;

begin
  a[0]:=-100;
  while not eof do
  begin
    readln(n);
    a[n+1]:=-100;
    for i:=1 to n do
    begin
      read(a[i]);
      sum[i]:=sum[i-1]+a[i];
    end;
    readln;
    for i:=1 to n do
    begin
      k:=i;
      while a[k-1]>a[i] do k:=b[k-1];
      b[i]:=k;
    end;
    max:=-100;
    for i:=n downto 1 do
    begin
      k:=i;
      while a[k+1]>=a[i] do k:=b[k+1];
      tmp:=(sum[k]-sum[b[i]-1])*a[i];
      if tmp>max then
      begin
        max:=tmp;
        start:=b[i];
        stops:=k;
      end;
      b[i]:=k;
    end;
    writeln(max);
    writeln(start,' ',stops);
  end;
end.