Problem: There is a sand trail in front of Alice's home.

In daytime, people walk over it and leave a footprint on the trail for their every single step. Alice cannot distinguish the order of the footprints, but she can tell whether each footprint is made by left foot or right foot. Also she's certain that all people are walking by alternating left foot and right foot.

For example, suppose that one person walked through the trail and left some footprints. The footprints are RRLRL in order along the trail ('R' means right foot and 'L' means left foot). You might think the outcome of the footprints is strange. But in fact, some steps are resulting from walking backwards!

There are some possible order of steps that produce these footprints such as 1 → 3 → 2 → 5 → 4 or 2 → 3 → 4 → 5 → 1 (we suppose that the distance between two consecutive steps can be arbitrarily long). The number of backward steps from above two examples are 2 and 1 separately.

Alice is interested in these footprints. Whenever there is a person walking trough the trail, she takes a picture of all these footprints along the trail and erase all of them so that next person will leave a new set of footprints. We know that people walk by alternating right foot and left foot, but we don't know if the first step is made by left foot or right foot.

Alice wants to know the minimum possible number of backward steps made by a person. But it's a little hard. Please help Alice to calculate it. You also need to construct one possible history of these footprints.

Input

Only one line containing the string S (1 ≤ |S| ≤ 100 000) containing all footprints in order along the trail from entrance to exit.

It is guaranteed that there is at least one possible footprint history.

Output

You should output 2 lines.

The first line should contain a number denoting the minimum number of backward steps.

The second line should contain a permutation of integers from 1 to |S|. This permutation should denote the order of footprints that may possible be used by person walked there.

If there are several possible answers, you may output any of them.

Examples

Input

RRLRL


Output

1
2 5 1 3 4


Input

RLRLRLRLR


Output

0
1 2 3 4 5 6 7 8 9


Input

RRRRRLLLL


Output

4
4 9 3 8 2 7 1 6 5

Note

For the first sample, one possible order is 2 → 5 → 1 → 3 → 4, among them only the step 5 → 1 is backward step so the answer is 1. 

For the second example one possible order is just to follow the order of input, thus there are no backward steps. 

For the third sample, there will be 4 backward steps because every step from L to R will be a backward step.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
int n;
const int maxn = 100003;
int lnext[maxn];
int lprev[maxn];
int rnext[maxn];
int rprev[maxn];
int bit1[maxn];
int bit2[maxn];
void inc1(int x, int val) {
  if (x >= maxn) return;
  bit1[x] += val;
  int t = x & (-x);
  inc1(x + t, val);
}
void inc2(int x, int val) {
  if (x >= maxn) return;
  bit2[x] += val;
  int t = x & (-x);
  inc2(x + t, val);
}
int val1(int x) {
  if (x == 0) return 0;
  int t = x & (-x);
  return bit1[x] + val1(x - t);
}
int val2(int x) {
  if (x == 0) return 0;
  int t = x & (-x);
  return bit2[x] + val2(x - t);
}
void rinc1(int a, int b, int x) {
  if (a > b) return;
  inc1(a, x);
  inc1(b + 1, 0 - x);
}
void rinc2(int a, int b, int x) {
  if (a > b) return;
  inc2(a, x);
  inc2(b + 1, 0 - x);
}
int main() {
  string s;
  cin >> s;
  n = s.length();
  if (n == 1) {
    cout << "0\n1\n";
    return 0;
  }
  int ans[maxn];
  bool vis[maxn];
  int cnt = 0;
  for (int i = 0; i <= n; ++i) {
    lprev[i] = -1;
    lnext[i] = -1;
    rprev[i] = -1;
    rnext[i] = -1;
    vis[i] = 0;
    ans[i] = 0;
  }
  int pr = -1, pl = -1;
  for (int i = 0; i < n; ++i) {
    if (s[i] == 'R') {
      if (pr == -1) {
        pr = i + 1;
        rinc2(1, pr - 1, i + 1);
      } else {
        rnext[pr] = i + 1;
        rprev[i + 1] = pr;
        rinc2(pr + 1, i, i + 1);
        pr = i + 1;
      }
    } else {
      if (pl == -1) {
        pl = i + 1;
        rinc1(1, pl - 1, i + 1);
      } else {
        lnext[pl] = i + 1;
        lprev[i + 1] = pl;
        rinc1(pl + 1, i, i + 1);
        pl = i + 1;
      }
    }
  }
  int st = 1, en = n;
  int cnt1 = 0;
  int curr = 1;
  int done = 0;
  for (int i = 0; i < n; ++i)
    if (s[i] == 'R') cnt1++;
  if (n % 2 == 1) {
    if (2 * cnt1 > n) {
      for (int i = 0; i < n; ++i)
        if (s[i] == 'R') {
          curr = i + 1;
          break;
        }
    } else {
      for (int i = 0; i < n; ++i)
        if (s[i] == 'L') {
          curr = i + 1;
          break;
        }
    }
  }
  while (done != n) {
    int next;
    if (s[curr - 1] == 'L') {
      next = val2(curr);
      if (next > 0 && s[st - 1] == s[en - 1] && val1(next) <= 0) {
        next = st;
        cnt++;
      }
      if (next <= 0) {
        next = st;
        cnt++;
      }
      if (lprev[curr] == -1) {
        if (lnext[curr] == -1) {
          rinc1(1, curr - 1, -maxn);
        } else {
          lprev[lnext[curr]] = -1;
          rinc1(1, curr - 1, lnext[curr] - curr);
        }
      } else if (lnext[curr] == -1) {
        lnext[lprev[curr]] = -1;
        rinc1(lprev[curr] + 1, maxn, -maxn);
      } else {
        lprev[lnext[curr]] = lprev[curr];
        lnext[lprev[curr]] = lnext[curr];
        rinc1(lprev[curr] + 1, curr, lnext[curr] - curr);
      }
    } else {
      next = val1(curr);
      if (next > 0 && s[st - 1] == s[en - 1] && val2(next) <= 0) {
        next = st;
        cnt++;
      }
      if (next <= 0) {
        next = st;
        cnt++;
      }
      if (rprev[curr] == -1) {
        if (rnext[curr] == -1) {
          rinc2(1, curr - 1, -maxn);
        } else {
          rprev[rnext[curr]] = -1;
          rinc2(1, curr - 1, rnext[curr] - curr);
        }
      } else if (rnext[curr] == -1) {
        rnext[rprev[curr]] = -1;
        rinc2(rprev[curr] + 1, maxn, -maxn);
      } else {
        rprev[rnext[curr]] = rprev[curr];
        rnext[rprev[curr]] = rnext[curr];
        rinc2(rprev[curr] + 1, curr, rnext[curr] - curr);
      }
    }
    ans[done + 1] = curr;
    done++;
    if (done == n) break;
    vis[curr] = 1;
    while (vis[st]) st++;
    while (vis[en]) en--;
    curr = next;
  }
  cout << cnt - 1 << endl;
  vector<int> newarr(n + 1);
  for (int i = 1; i <= n; ++i) cout << ans[i] << " ";
  cout << endl;
  return 0;
}