#include using namespace std; #define rep(i,n) for(ll i=0;i=0;i--) #define perl(i,r,l) for(ll i=r-1;i>=l;i--) #define fi first #define se second #define pb push_back #define ins insert #define pqueue(x) priority_queue,greater> #define all(x) (x).begin(),(x).end() #define CST(x) cout<> #define rev(x) reverse(x); using ll=long long; using vl=vector; using vvl=vector>; using pl=pair; using vpl=vector; using vvpl=vector; const ll MOD=1000000007; const ll MOD9=998244353; const int inf=1e9+10; const ll INF=4e18; const ll dy[9]={0,1,-1,0,1,1,-1,-1,0}; const ll dx[9]={1,0,0,-1,1,-1,1,-1,0}; template inline bool chmin(T& a, T b) { if (a > b) { a = b; return true; } return false; } template inline bool chmax(T& a, T b) { if (a < b) { a = b; return true; } return false; } vl topsort(vvl &g){ ll n=g.size(); vl ans,ind(n); rep(i,n)for(auto e:g[i])ind[e]++; queue que; rep(i,n)if(!ind[i])que.push(i); while(!que.empty()){ ll v=que.front();que.pop(); ans.pb(v); for(auto nv:g[v]){ ind[nv]--;if(!ind[nv])que.push(nv); } } return ans; } int main(){ ll n;cin >> n; vl a(n),b(n); rep(i,n)cin >> a[i]; rep(i,n)cin >> b[i]; vvl g(n); rep(i,n){ if(a[i]<=b[i]){ if(i+1=a[i+1])g[i].push_back(i+1); } else{ if(i-1>=0&&b[i]<=a[i-1])g[i].push_back(i-1); } } ll ans=0;rep(i,n)ans+=abs(a[i]-b[i]); cout << ans << endl; auto ord=topsort(g);rev(all(ord)); for(auto p:ord){ if(a[p]<=b[p]){ rep(i,b[p]-a[p]){ cout << p+1 << " " << "R" << endl; } } else{ rep(i,a[p]-b[p]){ cout << p+1 << " " << "L" << endl; } } } }