阿明是一名推销员，他奉命到螺丝街推销他们公司的产品。螺丝街是一条死胡同，出口与入口是同一个，街道的一侧是围墙，另一侧是住户。螺丝街一共有N家住户，第i家住户到入口的距离为Si米。由于同一栋房子里可以有多家住户，所以可能有多家住户与入口的距离相等。阿明会从入口进入，依次向螺丝街的X家住户推销产品，然后再原路走出去。阿明每走1米就会积累1点疲劳值，向第i家住户推销产品会积累Ai点疲劳值。阿明是工作狂，他想知道，对于不同的X，在不走多余的路的前提下，他最多可以积累多少点疲劳值。

第一行有一个正整数N，表示螺丝街住户的数量。
接下来的一行有N个正整数，其中第i个整数Si表示第i家住户到入口的距离。数据保证S1≤S2≤…≤Sn<10^8。
接下来的一行有N个正整数，其中第i个整数Ai表示向第i户住户推销产品会积累的疲劳值。数据保证Ai<10^3。

输出N行，每行一个正整数，第i行整数表示当X=i时，阿明最多积累的疲劳值。

【样例1】
5
1 2 3 4 5
1 2 3 4 5

【样例2】
5
1 2 2 4 5
5 4 3 4 1

【样例1】
15
19
22
24
25

【样例2】
12
17
21
24
27

1≤N≤100000

题解：

贪心。

将推到每一家的疲劳值从大到小排序，之后用“后”缀和思想求出从第i家推销到第n家的疲劳值ai，前缀和思想求出推销到第i家不算走路的疲劳值bi，用ci表示前i家的距离max一下，最后得出答案=max（bi+ci*2，bi-向第i家推销的长度+ai）。

var n,i,p,ans,sum,temp:longint;

    a,b,cnt:array[0..100001]of longint;

function max(x,y:longint):longint;

 begin

  if x>y then exit(x);

  exit(y);

 end;

procedure jh(var x,y:longint);

var t:longint;

 begin

  t:=x;

  x:=y;

  y:=t;

 end;

procedure sort(x,y:longint);

var i,j,k:longint;

 begin

  i:=x;

  j:=y;

  k:=b[(i+j)div 2];

  while i<j do

   begin

    while b[i]>k do inc(i);

    while b[j]<k do dec(j);

    if i<=j then

     begin

      jh(a[i],a[j]);

      jh(b[i],b[j]);

      inc(i);

      dec(j);

     end;

   end;

  if j>x then sort(x,j);

  if i<y then sort(i,y);

 end;

begin

 readln(n);

 for i:=1 to n do read(a[i]);

 for i:=1 to n do read(b[i]);

 sort(1,n);

 for i:=n downto 1 do cnt[i]:=max(cnt[i+1],a[i]*2+b[i]);

 for i:=1 to n do

  begin

   inc(sum,b[i]);

   p:=max(p,a[i]);

   writeln(max(sum+p*2,sum-b[i]+cnt[i]));

  end;

end.