Problem: Kekoland is a country with n beautiful cities numbered from left to right and connected by n - 1 roads. The i-th road connects cities i and i + 1 and length of this road is wi kilometers. 

When you drive in Kekoland, each time you arrive in city i by car you immediately receive gi liters of gas. There is no other way to get gas in Kekoland.

You were hired by the Kekoland president Keko to organize the most beautiful race Kekoland has ever seen. Let race be between cities l and r (l ≤ r). Race will consist of two stages. On the first stage cars will go from city l to city r. After completing first stage, next day second stage will be held, now racers will go from r to l with their cars. Of course, as it is a race, racers drive directly from start city to finish city. It means that at the first stage they will go only right, and at the second stage they go only left. Beauty of the race between l and r is equal to r - l + 1 since racers will see r - l + 1 beautiful cities of Kekoland. Cars have infinite tank so racers will take all the gas given to them.

At the beginning of each stage racers start the race with empty tank (0 liters of gasoline). They will immediately take their gasoline in start cities (l for the first stage and r for the second stage) right after the race starts. 

It may not be possible to organize a race between l and r if cars will run out of gas before they reach finish.

You have k presents. Each time you give a present to city i its value gi increases by 1. You may distribute presents among cities in any way (also give many presents to one city, each time increasing gi by 1). What is the most beautiful race you can organize?

Each car consumes 1 liter of gas per one kilometer.

Input

The first line of the input contains two integers n and k (2 ≤ n ≤ 100 000, 0 ≤ k ≤ 109) — the number of cities in Kekoland and the number of presents you have, respectively.

Next line contains n - 1 integers. The i-th of them is wi (1 ≤ wi ≤ 109) — the length of the road between city i and i + 1. 

Next line contains n integers. The i-th of them is gi (0 ≤ gi ≤ 109) — the amount of gas you receive every time you enter city i.

Output

Print a single line — the beauty of the most beautiful race you can organize.

Examples

Input

4 4
2 2 2
1 1 1 1


Output

4


Input

8 5
2 2 2 3 7 3 1
1 3 1 5 4 0 2 5


Output

7

Note

In first sample if you give one present to each city then it will be possible to make a race between city 1 and city 4.

In second sample you should add 1 to g5 and 4 to g6, then it will be possible to make a race between cities 2 and 8. 

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
inline long long gi() {
  register long long data = 0, fu = 1;
  register char ch = getchar();
  while (ch != '-' && (ch < '0' || ch > '9')) ch = getchar();
  if (ch == '-') fu = -1, ch = getchar();
  while ('0' <= ch && ch <= '9')
    data = (data << 1) + (data << 3) + (ch ^ 48), ch = getchar();
  return fu * data;
}
const long long inf = 1e16;
int stk[200005], nxt[200005], n, K;
long long pre[200005], suf[200005], W[200005], g[200005], root;
int Ans;
vector<int> edge[200005];
namespace Seg {
long long Minp[200005 << 2], Maxs[200005 << 2], ans[200005 << 2],
    tag[200005 << 2];
inline void Add(int o, long long v) {
  Maxs[o] += v;
  tag[o] += v;
  ans[o] += v;
  return;
}
inline void PushDown(int o) {
  if (tag[o] == 0) return;
  Add(o << 1, tag[o]);
  Add(o << 1 | 1, tag[o]);
  tag[o] = 0;
}
long long Calc(int o, int l, int r, long long x) {
  if (l == r) return x + Minp[o];
  int mid = (l + r) >> 1;
  PushDown(o);
  long long y = Maxs[o << 1];
  if (x >= y)
    return min(x + Minp[o << 1], Calc(o << 1 | 1, mid + 1, r, x));
  else
    return min(ans[o], Calc(o << 1, l, mid, x));
}
inline void PushUp(int o, int l, int r) {
  Maxs[o] = max(Maxs[o << 1], Maxs[o << 1 | 1]);
  int mid = (l + r) >> 1;
  ans[o] = Calc(o << 1 | 1, mid + 1, r, Maxs[o << 1]);
}
void Build(int o, int l, int r) {
  if (l == r) {
    Minp[o] = -suf[l];
    Maxs[o] = suf[l];
    ans[o] = 0;
    return;
  }
  int mid = (l + r) >> 1;
  Build(o << 1, l, mid);
  Build(o << 1 | 1, mid + 1, r);
  PushUp(o, l, r);
  Minp[o] = min(Minp[o << 1], Minp[o << 1 | 1]);
}
inline void Insert(int o, int l, int r, int ql, int qr, long long v) {
  if (ql <= l && r <= qr) {
    Add(o, v);
    return;
  }
  int mid = (l + r) >> 1;
  PushDown(o);
  if (ql <= mid) Insert(o << 1, l, mid, ql, qr, v);
  if (qr > mid) Insert(o << 1 | 1, mid + 1, r, ql, qr, v);
  PushUp(o, l, r);
}
int Solve(int o, int l, int r, long long x) {
  if (l == r) return x + Minp[o] <= K ? l : 0;
  int mid = (l + r) >> 1;
  PushDown(o);
  if (x + Minp[o << 1 | 1] <= K)
    return Solve(o << 1 | 1, mid + 1, r, x);
  else
    return Solve(o << 1, l, mid, x);
}
int Query(int o, int l, int r, long long x) {
  if (l == r) {
    return x + Minp[o] <= K ? l : 0;
  }
  int mid = (l + r) >> 1;
  PushDown(o);
  long long y = Maxs[o << 1];
  int ret = 0;
  if (x >= y) {
    ret = Query(o << 1 | 1, mid + 1, r, x);
    if (x + Minp[o] <= K) ret = max(ret, Solve(o << 1, l, mid, x));
  } else if (x <= y) {
    if (ans[o] <= K)
      ret = Query(o << 1 | 1, mid + 1, r, y);
    else
      ret = Query(o << 1, l, mid, x);
  }
  return ret;
}
}  // namespace Seg
inline void Pre() {
  stk[0] = 0;
  for (int i = n; i >= 1; i--) {
    while (stk[0] && pre[i - 1] <= pre[stk[stk[0]] - 1]) --stk[0];
    nxt[i] = stk[0] ? stk[stk[0]] : n + 1;
    stk[++stk[0]] = i;
  }
  root = n + 1;
  nxt[root] = n + 1;
  for (int i = 1; i <= n; i++) edge[nxt[i]].push_back(i);
  return;
}
inline int Bipart(int x) {
  int l = 2, r = stk[0], ret = 1;
  while (l <= r) {
    int mid = (l + r) >> 1;
    if (pre[x - 1] - pre[stk[mid] - 1] <= K)
      ret = mid, r = mid - 1;
    else
      l = mid + 1;
  }
  return stk[ret - 1] - 1;
}
void Dfs(int u, int From) {
  stk[++stk[0]] = u;
  if (nxt[u] <= n)
    Seg::Insert(1, 1, n, nxt[u] - 1, n, pre[u - 1] - pre[nxt[u] - 1]);
  if (u <= n) {
    int r = Bipart(u);
    if (r < n) Seg::Insert(1, 1, n, r, n, inf);
    if (u != 1) Seg::Insert(1, 1, n, 1, u - 1, -inf);
    Ans = max(Ans, Seg::Query(1, 1, n, -inf) - u + 1);
    if (r < n) Seg::Insert(1, 1, n, r, n, -inf);
    if (u != 1) Seg::Insert(1, 1, n, 1, u - 1, inf);
  }
  for (auto v : edge[u])
    if (v != From) Dfs(v, u);
  --stk[0];
  if (nxt[u] <= n)
    Seg::Insert(1, 1, n, nxt[u] - 1, n, pre[nxt[u] - 1] - pre[u - 1]);
}
int main() {
  n = gi();
  K = gi();
  for (int i = 1; i < n; i++) W[i] = gi();
  W[n] = inf;
  for (int i = 1; i <= n; i++) g[i] = gi();
  for (int i = 1; i <= n; i++) pre[i] = pre[i - 1] + g[i] - W[i];
  for (int i = 1; i <= n; i++) suf[i] = suf[i - 1] + g[i] - W[i - 1];
  Pre();
  Seg::Build(1, 1, n);
  stk[0] = 0;
  Dfs(root, 0);
  cout << Ans << endl;
  return 0;
}