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>
#pragma GCC optimize(2, 3, "Ofast", "unroll-loops")
using namespace std;
namespace fast_io {
char buf[1 << 12], *p1 = buf, *p2 = buf, sr[1 << 23], z[23], nc;
int C = -1, Z = 0, Bi = 0, ny;
inline char gc() {
  return p1 == p2 && (p2 = (p1 = buf) + fread(buf, 1, 1 << 12, stdin), p1 == p2)
             ? EOF
             : *p1++;
}
inline long long read() {
  long long x = 0;
  ny = 1;
  while (nc = gc(), (nc < 48 || nc > 57) && nc != EOF)
    if (nc == 45) ny = -1;
  Bi = 1;
  if (nc < 0) return nc;
  x = nc - 48;
  while (nc = gc(), 47 < nc && nc < 58 && nc != EOF)
    x = (x << 3) + (x << 1) + (nc ^ 48), Bi++;
  return x * ny;
}
inline double gf() {
  int a = read(), y = ny, b = (nc != '.') ? 0 : read();
  return (b ? a + (double)b / pow(10, Bi) * y : a);
}
inline int gs(char *s) {
  char c, *t = s;
  while (c = gc(), c <= 32)
    ;
  *s++ = c;
  while (c = gc(), c > 32) *s++ = c;
  return s - t;
}
inline void ot() {
  fwrite(sr, 1, C + 1, stdout);
  C = -1;
}
inline void flush() {
  if (C > 1 << 22) ot();
}
template <typename T>
inline void write(T x, char t) {
  int y = 0;
  if (x < 0) y = 1, x = -x;
  while (z[++Z] = x % 10 + 48, x /= 10)
    ;
  if (y) z[++Z] = '-';
  while (sr[++C] = z[Z], --Z)
    ;
  sr[++C] = t;
  flush();
}
inline void write(char *s) {
  int l = strlen(s);
  for (int i = 0; i < l; i++) sr[++C] = *s++;
  sr[++C] = '\n';
  flush();
}
}  // namespace fast_io
using namespace fast_io;
const int N = 1e5 + 5;
int n, cnt;
char s[N];
vector<int> v[N], id[2], ve[2][2];
inline void adj() {
  if (!ve[0][0].size() || !ve[0][1].size() || ve[1][0].size() ||
      ve[1][1].size())
    return;
  int a = ve[0][0].back(), b = ve[0][1].back();
  if (v[a].back() < v[b].back())
    v[a].push_back(v[b].back()), v[b].pop_back();
  else
    v[b].push_back(v[a].back()), v[a].pop_back();
  ve[0][0].pop_back();
  ve[0][1].pop_back();
  ve[1][0].push_back(b);
  ve[1][1].push_back(a);
}
inline void print(int x) {
  for (auto y : v[x]) write(y, ' ');
}
int main() {
  n = gs(s + 1);
  for (int i = 1, c, t; i <= n; i++) {
    c = s[i] == 'R';
    if (!id[c ^ 1].size()) id[c ^ 1].push_back(++cnt);
    t = id[c ^ 1].back();
    v[t].push_back(i);
    id[c ^ 1].pop_back(), id[c].push_back(t);
  }
  write(cnt - 1, '\n');
  for (int i = 1; i <= cnt; i++)
    ve[v[i].size() & 1][s[v[i].back()] == 'R'].push_back(i);
  adj();
  int t = (ve[1][0].size() ^ ve[1][1].size())
              ? ve[1][1].size() > ve[1][0].size()
              : ve[0][0].size() > ve[0][1].size();
  while (ve[0][t ^ 1].size())
    print(ve[0][t ^ 1].back()), ve[0][t ^ 1].pop_back();
  while (ve[1][t].size()) {
    print(ve[1][t].back()), ve[1][t].pop_back();
    while (ve[0][t].size()) print(ve[0][t].back()), ve[0][t].pop_back();
    t ^= 1;
  }
  return ot(), 0;
}