Problem: Boboniu likes playing chess with his employees. As we know, no employee can beat the boss in the chess game, so Boboniu has never lost in any round.

You are a new applicant for his company. Boboniu will test you with the following chess question:

Consider a n× m grid (rows are numbered from 1 to n, and columns are numbered from 1 to m). You have a chess piece, and it stands at some cell (S_x,S_y) which is not on the border (i.e. 2 ≤ S_x ≤ n-1 and 2 ≤ S_y ≤ m-1).

From the cell (x,y), you can move your chess piece to (x,y') (1≤ y'≤ m, y' ≠ y) or (x',y) (1≤ x'≤ n, x'≠ x). In other words, the chess piece moves as a rook. From the cell, you can move to any cell on the same row or column.

Your goal is to visit each cell exactly once. Can you find a solution?

Note that cells on the path between two adjacent cells in your route are not counted as visited, and it is not required to return to the starting point.

Input

The only line of the input contains four integers n, m, S_x and S_y (3≤ n,m≤ 100, 2 ≤ S_x ≤ n-1, 2 ≤ S_y ≤ m-1) — the number of rows, the number of columns, and the initial position of your chess piece, respectively.

Output

You should print n⋅ m lines.

The i-th line should contain two integers x_i and y_i (1 ≤ x_i ≤ n, 1 ≤ y_i ≤ m), denoting the i-th cell that you visited. You should print exactly nm pairs (x_i, y_i), they should cover all possible pairs (x_i, y_i), such that 1 ≤ x_i ≤ n, 1 ≤ y_i ≤ m.

We can show that under these constraints there always exists a solution. If there are multiple answers, print any.

Examples

Input


3 3 2 2


Output


2 2
1 2
1 3
2 3
3 3
3 2
3 1
2 1
1 1


Input


3 4 2 2


Output


2 2
2 1
2 3
2 4
1 4
3 4
3 3
3 2
3 1
1 1
1 2
1 3

Note

Possible routes for two examples:

<image>

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
int _ = 1, tc = 1;
int dx[] = {0, 0, 1, -1};
int dy[] = {1, -1, 0, 0};
int getmod(int x, int y, int mod) { return (((x - y) % mod) + mod) % mod; }
int MAXN = 46341 + 1;
int spf[46341 + 1];
int d, x, y;
int gcd(int a, int b) {
  if (b == 0) return a;
  return gcd(b, a % b);
}
void sieve() {
  for (int i = 1; i < MAXN; i++) spf[i] = i;
  for (int i = 4; i < MAXN; i += 2) spf[i] = 2;
  for (int i = 3; i * i < MAXN; i += 2) {
    if (spf[i] == i) {
      for (int j = i * i; j < MAXN; j += i) {
        if (spf[j] == j) spf[j] = i;
      }
    }
  }
}
void extended_gcd(int a, int b) {
  if (b == 0) {
    d = a;
    x = 1;
    y = 0;
  } else {
    extended_gcd(b, a % b);
    int temp = y;
    y = x - y * (a / b);
    x = temp;
  }
}
long long gcd(long long a, long long b) {
  if (b == 0) return a;
  return gcd(b, a % b);
}
long long lcm(long long a, long long b) { return (a * b) / gcd(a, b); }
void solve() {
  long long n, m, s1, s2;
  cin >> n >> m >> s1 >> s2;
  cout << s1 << " " << s2 << endl;
  for (int i = 1; i <= m; i++) {
    if (i == s2) continue;
    cout << s1 << " " << i << endl;
  }
  int curr = m, new_curr = m;
  for (int i = s1 - 1; i >= 1; i--) {
    if (curr == m) {
      for (int j = m; j > 0; j--) {
        cout << i << " " << j << endl;
      }
      curr = 1;
    } else {
      for (int j = 1; j <= m; j++) {
        cout << i << " " << j << endl;
      }
      curr = m;
    }
  }
  for (int i = s1 + 1; i <= n; i++) {
    if (curr == m) {
      for (int j = m; j > 0; j--) {
        cout << i << " " << j << endl;
      }
      curr = 1;
    } else {
      for (int j = 1; j <= m; j++) {
        cout << i << " " << j << endl;
      }
      curr = m;
    }
  }
}
int main() {
  ios_base::sync_with_stdio(false);
  cin.tie(0);
  cout.tie(0);
  while (_--) {
    solve();
  }
  return 0;
}