#include <bits/stdc++.h>
using namespace std;
#define fast_io ios::sync_with_stdio(0); cin.tie(0); cout.tie(0)
#define int long long
#define pb push_back
#define ff first
#define ss second
#define all(x) (x).begin(), (x).end()
#define rall(x) (x).rbegin(), (x).rend()
#define sz(x) ((int)(x).size())
#define endl '\n'
#define yes cout << "yes\n"
#define no cout << "no\n"
#define rep(i,a,b) for(int i=a;i<b;++i)
#define per(i,a,b) for(int i=b-1;i>=a;--i)
#define each(x,a) for(auto &x:a)
const int INF = 1e18;
const int MOD = 1e9+7;
// BAD sequence checker
bool isBad(int* q, int len) {
if (len < 5) return false;
for (int i = len - 5; i >= 0; --i) {
bool inc = 1, dec = 1;
rep(j, 0, 4) {
if (q[i + j] >= q[i + j + 1]) inc = 0;
if (q[i + j] <= q[i + j + 1]) dec = 0;
}
if (inc || dec) return true;
}
return false;
}
void solve() {
int n;
cin >> n;
int* a = new int[n];
rep(i, 0, n) cin >> a[i];
int* q = new int[n];
int l = 0, r = n - 1, len = 0;
string res = "";
while (l <= r) {
bool canLeft = false, canRight = false;
q[len] = a[l];
if (!isBad(q, len + 1)) canLeft = true;
q[len] = a[r];
if (!isBad(q, len + 1)) canRight = true;
if (canLeft && (!canRight || a[l] < a[r])) {
q[len++] = a[l++];
res += 'L';
} else if (canRight) {
q[len++] = a[r--];
res += 'R';
} else {
// fallback, always possible as permutation doesn't force a bad seq
q[len++] = a[l++];
res += 'L';
}
}
cout << res << endl;
delete[] a;
delete[] q;
}
int32_t main() {
fast_io;
int t;
cin >> t;
while (t--) solve();
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CgojZGVmaW5lIGZhc3RfaW8gaW9zOjpzeW5jX3dpdGhfc3RkaW8oMCk7IGNpbi50aWUoMCk7IGNvdXQudGllKDApCiNkZWZpbmUgaW50IGxvbmcgbG9uZwojZGVmaW5lIHBiIHB1c2hfYmFjawojZGVmaW5lIGZmIGZpcnN0CiNkZWZpbmUgc3Mgc2Vjb25kCiNkZWZpbmUgYWxsKHgpICh4KS5iZWdpbigpLCAoeCkuZW5kKCkKI2RlZmluZSByYWxsKHgpICh4KS5yYmVnaW4oKSwgKHgpLnJlbmQoKQojZGVmaW5lIHN6KHgpICgoaW50KSh4KS5zaXplKCkpCiNkZWZpbmUgZW5kbCAnXG4nCiNkZWZpbmUgeWVzIGNvdXQgPDwgInllc1xuIgojZGVmaW5lIG5vIGNvdXQgPDwgIm5vXG4iCiNkZWZpbmUgcmVwKGksYSxiKSBmb3IoaW50IGk9YTtpPGI7KytpKQojZGVmaW5lIHBlcihpLGEsYikgZm9yKGludCBpPWItMTtpPj1hOy0taSkKI2RlZmluZSBlYWNoKHgsYSkgZm9yKGF1dG8gJng6YSkKCmNvbnN0IGludCBJTkYgPSAxZTE4Owpjb25zdCBpbnQgTU9EID0gMWU5Kzc7CgovLyBCQUQgc2VxdWVuY2UgY2hlY2tlcgpib29sIGlzQmFkKGludCogcSwgaW50IGxlbikgewogICAgaWYgKGxlbiA8IDUpIHJldHVybiBmYWxzZTsKICAgIGZvciAoaW50IGkgPSBsZW4gLSA1OyBpID49IDA7IC0taSkgewogICAgICAgIGJvb2wgaW5jID0gMSwgZGVjID0gMTsKICAgICAgICByZXAoaiwgMCwgNCkgewogICAgICAgICAgICBpZiAocVtpICsgal0gPj0gcVtpICsgaiArIDFdKSBpbmMgPSAwOwogICAgICAgICAgICBpZiAocVtpICsgal0gPD0gcVtpICsgaiArIDFdKSBkZWMgPSAwOwogICAgICAgIH0KICAgICAgICBpZiAoaW5jIHx8IGRlYykgcmV0dXJuIHRydWU7CiAgICB9CiAgICByZXR1cm4gZmFsc2U7Cn0KCnZvaWQgc29sdmUoKSB7CiAgICBpbnQgbjsKICAgIGNpbiA+PiBuOwogICAgaW50KiBhID0gbmV3IGludFtuXTsKICAgIHJlcChpLCAwLCBuKSBjaW4gPj4gYVtpXTsKCiAgICBpbnQqIHEgPSBuZXcgaW50W25dOwogICAgaW50IGwgPSAwLCByID0gbiAtIDEsIGxlbiA9IDA7CiAgICBzdHJpbmcgcmVzID0gIiI7CgogICAgd2hpbGUgKGwgPD0gcikgewogICAgICAgIGJvb2wgY2FuTGVmdCA9IGZhbHNlLCBjYW5SaWdodCA9IGZhbHNlOwoKICAgICAgICBxW2xlbl0gPSBhW2xdOwogICAgICAgIGlmICghaXNCYWQocSwgbGVuICsgMSkpIGNhbkxlZnQgPSB0cnVlOwoKICAgICAgICBxW2xlbl0gPSBhW3JdOwogICAgICAgIGlmICghaXNCYWQocSwgbGVuICsgMSkpIGNhblJpZ2h0ID0gdHJ1ZTsKCiAgICAgICAgaWYgKGNhbkxlZnQgJiYgKCFjYW5SaWdodCB8fCBhW2xdIDwgYVtyXSkpIHsKICAgICAgICAgICAgcVtsZW4rK10gPSBhW2wrK107CiAgICAgICAgICAgIHJlcyArPSAnTCc7CiAgICAgICAgfSBlbHNlIGlmIChjYW5SaWdodCkgewogICAgICAgICAgICBxW2xlbisrXSA9IGFbci0tXTsKICAgICAgICAgICAgcmVzICs9ICdSJzsKICAgICAgICB9IGVsc2UgewogICAgICAgICAgICAvLyBmYWxsYmFjaywgYWx3YXlzIHBvc3NpYmxlIGFzIHBlcm11dGF0aW9uIGRvZXNuJ3QgZm9yY2UgYSBiYWQgc2VxCiAgICAgICAgICAgIHFbbGVuKytdID0gYVtsKytdOwogICAgICAgICAgICByZXMgKz0gJ0wnOwogICAgICAgIH0KICAgIH0KCiAgICBjb3V0IDw8IHJlcyA8PCBlbmRsOwoKICAgIGRlbGV0ZVtdIGE7CiAgICBkZWxldGVbXSBxOwp9CgppbnQzMl90IG1haW4oKSB7CiAgICBmYXN0X2lvOwogICAgaW50IHQ7CiAgICBjaW4gPj4gdDsKICAgIHdoaWxlICh0LS0pIHNvbHZlKCk7CiAgICByZXR1cm4gMDsKfQo=