Problem: The New Year is coming! That's why many people today are busy preparing New Year presents. Vasily the Programmer is no exception.

Vasily knows that the best present is (no, it's not a contest) money. He's put n empty wallets from left to right in a row and decided how much money to put in what wallet. Vasily decided to put ai coins to the i-th wallet from the left.

Vasily is a very busy man, so the money are sorted into the bags by his robot. Initially, the robot stands by the leftmost wallet in the row. The robot can follow instructions of three types: go to the wallet that is to the left of the current one (if such wallet exists), go to the wallet that is to the right of the current one (if such wallet exists), put a coin to the current wallet. Due to some technical malfunctions the robot cannot follow two "put a coin" instructions in a row.

Vasily doesn't want to wait for long, so he wants to write a program for the robot that contains at most 106 operations (not necessarily minimum in length) the robot can use to put coins into the wallets. Help him.

Input

The first line contains integer n (2 ≤ n ≤ 300) — the number of wallets. The next line contains n integers a1, a2, ..., an (0 ≤ ai ≤ 300).

It is guaranteed that at least one ai is positive.

Output

Print the sequence that consists of k (1 ≤ k ≤ 106) characters, each of them equals: "L", "R" or "P". Each character of the sequence is an instruction to the robot. Character "L" orders to move to the left, character "R" orders to move to the right, character "P" orders the robot to put a coin in the wallet. The robot is not allowed to go beyond the wallet line. In other words, you cannot give instructions "L" if the robot is at wallet 1, or "R" at wallet n.

As a result of the performed operations, the i-th wallet from the left must contain exactly ai coins. If there are multiple answers, you can print any of them.

Examples

Input

2
1 2


Output

PRPLRP

Input

4
0 2 0 2


Output

RPRRPLLPLRRRP

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
template <class T>
inline T sqr(T x) {
  return x * x;
}
template <class T>
inline T cube(T x) {
  return x * x * x;
}
template <class T>
inline T quad(T x) {
  return x * x * x * x;
}
template <class T>
inline T powr(T x, T y) {
  T ret = 1;
  while (y--) ret *= x;
  return ret;
}
template <class T>
inline bool Equal(T x, T y) {
  return fabs(x - y) < 1e-9;
}
template <class T>
inline T bitSet(T n, T pos) {
  return n = n | (1 << pos);
}
template <class T>
inline T bitReset(T n, T pos) {
  return n = n & ~(1 << pos);
}
template <class T>
inline bool bitCheck(T n, T pos) {
  return n & (1 << pos);
}
template <class T>
inline T GCD(T a, T b) {
  if (a < 0) return GCD(-a, b);
  if (b < 0) return GCD(a, -b);
  return (b == 0) ? a : GCD(b, a % b);
}
template <class T>
inline T LCM(T a, T b) {
  if (a < 0) return LCM(-a, b);
  if (b < 0) return LCM(a, -b);
  return a * (b / GCD(a, b));
}
template <class T>
inline bool isPrime(T n) {
  if (n <= 1) return false;
  for (T i = 2; i * i <= n; i++)
    if (n % i == 0) return false;
  return true;
}
template <class T>
inline void debug(T x) {
  cout << "x = " << x << endl;
}
template <class T1, class T2>
inline void debug(T1 x, T2 y) {
  cout << "x = " << x << ", y = " << y << endl;
}
template <class T1, class T2, class T3>
inline void debug(T1 x, T2 y, T3 z) {
  cout << "x = " << x << ", y = " << y << ", z = " << z << endl;
}
int dx[] = {+1, -1, +0, +0};
int dy[] = {+0, +0, +1, -1};
int main() {
  int i, j, pen[302], a[302], n, cnt;
  bool flag;
  string s, fin;
  while (scanf("%d", &n) != EOF) {
    for (i = 1; i <= n; i++) scanf("%d", &a[i]);
    fin.clear();
    s.clear();
    flag = true;
    memset(pen, 0, sizeof(pen));
    while (flag) {
      for (i = 1, cnt = 0; i < n; i++) {
        if (pen[i] < a[i]) {
          pen[i]++;
          cnt++;
          s.append("PR");
        } else
          s.append("R");
      }
      if (pen[n] < a[n]) {
        pen[n]++;
        cnt++;
        s.append("PL");
      } else
        s.append("L");
      if (cnt == 0)
        break;
      else
        fin += s;
      s.clear();
      for (i = n - 1, cnt = 0; i > 1; i--) {
        if (pen[i] < a[i]) {
          pen[i]++;
          cnt++;
          s.append("PL");
        } else
          s.append("L");
      }
      fin += s;
      s.clear();
    }
    if (fin.size() == 0) fin.append("R");
    cout << fin << endl;
  }
  return 0;
}