Problem: You have a playlist consisting of n songs. The i-th song is characterized by two numbers t_i and b_i — its length and beauty respectively. The pleasure of listening to set of songs is equal to the total length of the songs in the set multiplied by the minimum beauty among them. For example, the pleasure of listening to a set of 3 songs having lengths [5, 7, 4] and beauty values [11, 14, 6] is equal to (5 + 7 + 4) ⋅ 6 = 96.

You need to choose at most k songs from your playlist, so the pleasure of listening to the set of these songs them is maximum possible.

Input

The first line contains two integers n and k (1 ≤ k ≤ n ≤ 3 ⋅ 10^5) – the number of songs in the playlist and the maximum number of songs you can choose, respectively.

Each of the next n lines contains two integers t_i and b_i (1 ≤ t_i, b_i ≤ 10^6) — the length and beauty of i-th song.

Output

Print one integer — the maximum pleasure you can get.

Examples

Input


4 3
4 7
15 1
3 6
6 8


Output


78


Input


5 3
12 31
112 4
100 100
13 55
55 50


Output


10000

Note

In the first test case we can choose songs {1, 3, 4}, so the total pleasure is (4 + 3 + 6) ⋅ 6 = 78.

In the second test case we can choose song 3. The total pleasure will be equal to 100 ⋅ 100 = 10000.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
#pragma GCC optimize("Ofast")
using namespace std;
const int mod = 1e9 + 7;
clock_t t1, t2;
long long binPow(long long a, long long b) {
  long long x = 1, y = a;
  while (b) {
    if (b & 1) x = (x * y) % mod;
    y = (y * y) % mod;
    b >>= 1;
  }
  return x % mod;
}
long long inverserEuler(int n) { return binPow(n, mod - 2); }
long long C(int k, int n) {
  vector<long long> f(n + 1, 1);
  for (int i = 2; i <= n; i++) f[i] = (f[i - 1] * i) % mod;
  return (f[n] * ((inverserEuler(f[k]) * inverserEuler(f[n - k])) % mod) %
          mod) %
         mod;
}
const int maxn = 3e5 + 5;
pair<int, int> a[maxn];
long long n, k;
void trunghieu() {
  cin >> n >> k;
  int i, j;
  for (i = 0; i < n; ++i) cin >> a[i].second >> a[i].first;
  sort(a, a + n);
  set<pair<int, int>> s;
  long long ans = 0;
  long long sum = 0;
  for (i = n - 1; i >= 0; i--) {
    s.insert({a[i].second, i});
    sum += a[i].second;
    while (s.size() > k) {
      auto u = s.begin();
      sum -= u->first;
      s.erase(u);
    }
    ans = max(ans, sum * a[i].first);
  }
  cout << ans;
}
int main() {
  cerr << "Program is running" << endl;
  t1 = clock();
  ios::sync_with_stdio(false);
  cin.tie();
  trunghieu();
  t2 = clock();
  float diff((float)t2 - (float)t1);
  float seconds = diff / CLOCKS_PER_SEC;
  cerr << "\nRunning in " << seconds << " seconds" << endl;
  return 0;
}