Problem: It's time polar bears Menshykov and Uslada from the zoo of St. Petersburg and elephant Horace from the zoo of Kiev got down to business. In total, there are n tasks for the day and each animal should do each of these tasks. For each task, they have evaluated its difficulty. Also animals decided to do the tasks in order of their difficulty. Unfortunately, some tasks can have the same difficulty, so the order in which one can perform the tasks may vary.

Menshykov, Uslada and Horace ask you to deal with this nuisance and come up with individual plans for each of them. The plan is a sequence describing the order in which an animal should do all the n tasks. Besides, each of them wants to have its own unique plan. Therefore three plans must form three different sequences. You are to find the required plans, or otherwise deliver the sad news to them by stating that it is impossible to come up with three distinct plans for the given tasks.

Input

The first line contains integer n (1 ≤ n ≤ 2000) — the number of tasks. The second line contains n integers h1, h2, ..., hn (1 ≤ hi ≤ 2000), where hi is the difficulty of the i-th task. The larger number hi is, the more difficult the i-th task is.

Output

In the first line print "YES" (without the quotes), if it is possible to come up with three distinct plans of doing the tasks. Otherwise print in the first line "NO" (without the quotes). If three desired plans do exist, print in the second line n distinct integers that represent the numbers of the tasks in the order they are done according to the first plan. In the third and fourth line print two remaining plans in the same form.

If there are multiple possible answers, you can print any of them.

Examples

Input

4
1 3 3 1


Output

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


Input

5
2 4 1 4 8


Output

NO

Note

In the first sample the difficulty of the tasks sets one limit: tasks 1 and 4 must be done before tasks 2 and 3. That gives the total of four possible sequences of doing tasks : [1, 4, 2, 3], [4, 1, 2, 3], [1, 4, 3, 2], [4, 1, 3, 2]. You can print any three of them in the answer.

In the second sample there are only two sequences of tasks that meet the conditions — [3, 1, 2, 4, 5] and [3, 1, 4, 2, 5]. Consequently, it is impossible to make three distinct sequences of tasks.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int MN = 2011;
int n, a[MN];
vector<int> ls[MN];
void solve1(int u) {
  cout << "YES" << endl;
  for (int turn = 0, _a = (3); turn < _a; turn++) {
    for (int i = (1), _b = (2000); i <= _b; i++) {
      if (i != u) {
        for (int x = 0, _a = (ls[i].size()); x < _a; x++)
          cout << ls[i][x] << ' ';
      } else {
        if (turn == 0)
          cout << ls[i][0] << ' ' << ls[i][1] << ' ' << ls[i][2] << ' ';
        else if (turn == 1)
          cout << ls[i][0] << ' ' << ls[i][2] << ' ' << ls[i][1] << ' ';
        else
          cout << ls[i][1] << ' ' << ls[i][0] << ' ' << ls[i][2] << ' ';
        for (int x = (3), _b = (ls[i].size() - 1); x <= _b; x++)
          cout << ls[i][x] << ' ';
      }
    }
    cout << endl;
  }
}
void solve2(int u, int v) {
  cout << "YES" << endl;
  for (int turn = 0, _a = (3); turn < _a; turn++) {
    for (int i = (1), _b = (2000); i <= _b; i++) {
      if (i != u && i != v) {
        for (int x = 0, _a = (ls[i].size()); x < _a; x++)
          cout << ls[i][x] << ' ';
      } else if (i == u) {
        if (turn == 0)
          cout << ls[i][0] << ' ' << ls[i][1] << ' ';
        else if (turn == 1)
          cout << ls[i][0] << ' ' << ls[i][1] << ' ';
        else
          cout << ls[i][1] << ' ' << ls[i][0] << ' ';
        for (int x = (2), _b = (ls[i].size() - 1); x <= _b; x++)
          cout << ls[i][x] << ' ';
      } else if (i == v) {
        if (turn == 0)
          cout << ls[i][0] << ' ' << ls[i][1] << ' ';
        else if (turn == 1)
          cout << ls[i][1] << ' ' << ls[i][0] << ' ';
        else
          cout << ls[i][1] << ' ' << ls[i][0] << ' ';
        for (int x = (2), _b = (ls[i].size() - 1); x <= _b; x++)
          cout << ls[i][x] << ' ';
      }
    }
    cout << endl;
  }
}
int main() {
  ios ::sync_with_stdio(false);
  while (cin >> n) {
    for (int i = (1), _b = (n); i <= _b; i++) cin >> a[i];
    for (int i = (0), _b = (2000); i <= _b; i++) ls[i].clear();
    for (int i = (1), _b = (n); i <= _b; i++) {
      ls[a[i]].push_back(i);
    }
    bool ok = false;
    for (int i = (0), _b = (2000); i <= _b; i++)
      if (ls[i].size() >= 3) {
        solve1(i);
        ok = true;
        break;
      }
    if (ok) continue;
    for (int i = (1), _b = (2000); i <= _b; i++) {
      for (int j = (i + 1), _b = (2000); j <= _b; j++)
        if (ls[i].size() >= 2 && ls[j].size() >= 2) {
          solve2(i, j);
          ok = true;
          break;
        }
      if (ok) break;
    }
    if (!ok) cout << "NO" << endl;
  }
  return 0;
}