#include <bits/stdc++.h>
using namespace std;
#define int long long int
#define double long double
#define print(a) for(auto x : a) cout << x << " "; cout << endl
const int M = 1000000007;
const int N = 3e5+9;
const int INF = 2e9+1;
const int LINF = 2000000000000000001;
inline int power(int a, int b) {
int x = 1;
a %= M;
while (b) {
if (b & 1) x = (x * a) % M;
a = (a * a) % M;
b >>= 1;
}
return x;
}
//_ ***************************** START Below *******************************
vector<int> a;
pair<int,string> consistency(int n){
string left = "";
string right = "";
int last = 0;
int i = 0, j = n-1;
while(i<=j){
if(a[i] <= last || a[j] <= last) break;
if(a[i] == a[j]) break;
if(a[i] < a[j]){
left.push_back('L');
right.push_back('L');
last = a[i];
i++;
}
else{
left.push_back('R');
right.push_back('R');
last = a[j];
j--;
}
}
int k = i;
while(k<=j && (k==0 || a[k] > a[k-1])){
left.push_back('L');
k++;
}
k = j;
while(k>=i && (k==n-1 || a[k] > a[k+1] )){
right.push_back('R');
k--;
}
int sz1 = left.size();
int sz2 = right.size();
if(sz1 > sz2){
return {sz1, left};
}
return {sz2, right};
}
pair<int,string> practice(int n){
return {};
}
void solve() {
int n;
cin>> n;
a.resize(n);
for(int i=0; i<n; i++) cin >> a[i];
auto ans = consistency(n);
cout << ans.first << endl;
cout << ans.second << endl;
}
int32_t main() {
ios_base::sync_with_stdio(0); cin.tie(0); cout.tie(0);
int t = 1;
// cin >> t;
while (t--) {
solve();
}
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgaW50ICAgICAgICAgICAgICBsb25nIGxvbmcgaW50CiNkZWZpbmUgZG91YmxlICAgICAgICAgICBsb25nIGRvdWJsZQojZGVmaW5lIHByaW50KGEpICAgICAgICAgZm9yKGF1dG8geCA6IGEpIGNvdXQgPDwgeCA8PCAiICI7IGNvdXQgPDwgZW5kbAoKCmNvbnN0IGludCBNID0gMTAwMDAwMDAwNzsKY29uc3QgaW50IE4gPSAzZTUrOTsKY29uc3QgaW50IElORiA9IDJlOSsxOwpjb25zdCBpbnQgTElORiA9IDIwMDAwMDAwMDAwMDAwMDAwMDE7CgppbmxpbmUgaW50IHBvd2VyKGludCBhLCBpbnQgYikgewogICAgaW50IHggPSAxOwogICAgYSAlPSBNOwogICAgd2hpbGUgKGIpIHsKICAgICAgICBpZiAoYiAmIDEpIHggPSAoeCAqIGEpICUgTTsgCiAgICAgICAgYSA9IChhICogYSkgJSBNOwogICAgICAgIGIgPj49IDE7CiAgICB9CiAgICByZXR1cm4geDsKfQoKCi8vXyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiBTVEFSVCBCZWxvdyAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqCgoKCgp2ZWN0b3I8aW50PiBhOwoKcGFpcjxpbnQsc3RyaW5nPiBjb25zaXN0ZW5jeShpbnQgbil7CgogICAgc3RyaW5nIGxlZnQgPSAiIjsKICAgIHN0cmluZyByaWdodCA9ICIiOwogICAgaW50IGxhc3QgPSAwOwoKICAgIGludCBpID0gMCwgaiA9IG4tMTsKICAgIHdoaWxlKGk8PWopewoKICAgICAgICBpZihhW2ldIDw9IGxhc3QgfHwgYVtqXSA8PSBsYXN0KSBicmVhazsKICAgICAgICBpZihhW2ldID09IGFbal0pIGJyZWFrOwoKICAgICAgICBpZihhW2ldIDwgYVtqXSl7CiAgICAgICAgICAgIGxlZnQucHVzaF9iYWNrKCdMJyk7CiAgICAgICAgICAgIHJpZ2h0LnB1c2hfYmFjaygnTCcpOwogICAgICAgICAgICBsYXN0ID0gYVtpXTsKICAgICAgICAgICAgaSsrOwogICAgICAgIH0KICAgICAgICBlbHNlewogICAgICAgICAgICBsZWZ0LnB1c2hfYmFjaygnUicpOwogICAgICAgICAgICByaWdodC5wdXNoX2JhY2soJ1InKTsKICAgICAgICAgICAgbGFzdCA9IGFbal07CiAgICAgICAgICAgIGotLTsKICAgICAgICB9CiAgICB9CgoKICAgIGludCBrID0gaTsKICAgIHdoaWxlKGs8PWogJiYgKGs9PTAgfHwgYVtrXSA+IGFbay0xXSkpewogICAgICAgIGxlZnQucHVzaF9iYWNrKCdMJyk7CiAgICAgICAgaysrOwogICAgfQoKICAgIGsgPSBqOwogICAgd2hpbGUoaz49aSAmJiAoaz09bi0xIHx8IGFba10gPiBhW2srMV0gKSl7CiAgICAgICAgcmlnaHQucHVzaF9iYWNrKCdSJyk7CiAgICAgICAgay0tOwogICAgfQoKICAgIGludCBzejEgPSBsZWZ0LnNpemUoKTsKICAgIGludCBzejIgPSByaWdodC5zaXplKCk7CgogICAgaWYoc3oxID4gc3oyKXsKICAgICAgICByZXR1cm4ge3N6MSwgbGVmdH07CiAgICB9CiAgICByZXR1cm4ge3N6MiwgcmlnaHR9Owp9CgoKCgoKCgoKCgoKCgoKCnBhaXI8aW50LHN0cmluZz4gcHJhY3RpY2UoaW50IG4pewoKICAgIHJldHVybiB7fTsKfQoKCgoKCnZvaWQgc29sdmUoKSB7CiAgICAKICAgIGludCBuOwogICAgY2luPj4gbjsKICAgIAogICAgYS5yZXNpemUobik7CiAgICBmb3IoaW50IGk9MDsgaTxuOyBpKyspIGNpbiA+PiBhW2ldOwogICAgCiAgICBhdXRvIGFucyA9IGNvbnNpc3RlbmN5KG4pOwogICAgY291dCA8PCBhbnMuZmlyc3QgPDwgZW5kbDsKICAgIGNvdXQgPDwgYW5zLnNlY29uZCA8PCBlbmRsOwoKCn0KCgoKCgppbnQzMl90IG1haW4oKSB7CiAgICBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApOyBjaW4udGllKDApOyBjb3V0LnRpZSgwKTsKCiAgICBpbnQgdCA9IDE7CiAgICAvLyBjaW4gPj4gdDsKICAgIHdoaWxlICh0LS0pIHsKICAgICAgICBzb2x2ZSgpOwogICAgfQoKICAgIHJldHVybiAwOwp9