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;
const long long maxn = 1e5 + 500;
const long long mod = 1e9 + 7;
const long long inf = 1e9 + 500;
string s;
long long n;
char c[maxn];
vector<long long> moa[maxn];
long long nxt[maxn];
long long ghb[maxn];
bool kam[maxn];
bool hazf[maxn];
long long cn;
void del(long long a) {
  if (a <= 0 || a >= cn) {
    return;
  }
  hazf[a] = 1;
  if (ghb[a] != 0) {
    nxt[ghb[a]] = nxt[a];
  }
  if (nxt[a] != cn) {
    ghb[nxt[a]] = ghb[a];
  }
}
void merg(long long a, long long b) {
  if (moa[a].size() > moa[b].size()) {
    swap(a, b);
  }
  del(a);
  for (long long i = 0; i < moa[a].size(); i++) {
    moa[b].push_back(moa[a][i]);
  }
  moa[a].clear();
}
void okeyed(long long a) {
  if (!moa[a].empty() || hazf[a]) {
    return;
  }
  del(a);
  if (nxt[a] != cn && ghb[a] != 0) {
    merg(ghb[a], nxt[a]);
  }
}
long long find_b() {
  long long p = nxt[0];
  while (p < cn && (long long)(moa[p].size()) - kam[p] == 0) {
    p = nxt[p];
  }
  return p;
}
void bild() {
  fill(hazf, hazf + maxn, 0);
  for (long long i = 0; i < cn; i++) {
    moa[i].clear();
  }
  cn = 1;
  moa[cn].push_back(0);
  c[cn] = s[0];
  for (long long i = 1; i < n; i++) {
    if (s[i] != s[i - 1]) {
      cn++;
      moa[cn].push_back(i);
      c[cn] = s[i];
    } else {
      moa[cn].push_back(i);
    }
  }
  cn++;
  for (long long i = 0; i < cn; i++) {
    nxt[i] = i + 1;
    ghb[i] = i - 1;
  }
}
int main() {
  cin >> s;
  n = s.size();
  if (n == 1) {
    cout << 0 << endl << 1 << endl;
    return 0;
  }
  bild();
  vector<long long> vec1;
  long long t1 = 0;
  long long p = 1;
  while (1) {
    vector<long long> ko;
    while (p < cn) {
      ko.push_back(p);
      kam[p] = 1;
      p = nxt[p];
    }
    long long b = find_b();
    if (c[ko.back()] == c[b] && b < cn) {
      kam[ko.back()] = 0;
      ko.pop_back();
    }
    for (long long i = 0; i < ko.size(); i++) {
      long long v = ko[i];
      kam[v] = 0;
      vec1.push_back(moa[v].back());
      moa[v].pop_back();
    }
    for (long long i = 0; i < ko.size(); i++) {
      okeyed(ko[i]);
    }
    if (b >= cn) {
      break;
    }
    if (ko.size() == 0) {
      t1 = inf;
      break;
    }
    t1++;
    b = find_b();
    p = b;
  }
  bild();
  vector<long long> vec2;
  long long t2 = 0;
  p = 2;
  while (1) {
    vector<long long> ko;
    while (p < cn) {
      ko.push_back(p);
      kam[p] = 1;
      p = nxt[p];
    }
    long long b = find_b();
    if (c[ko.back()] == c[b] && b < cn) {
      kam[ko.back()] = 0;
      ko.pop_back();
    }
    for (long long i = 0; i < ko.size(); i++) {
      long long v = ko[i];
      kam[v] = 0;
      vec2.push_back(moa[v].back());
      moa[v].pop_back();
    }
    for (long long i = 0; i < ko.size(); i++) {
      okeyed(ko[i]);
    }
    if (b >= cn) {
      break;
    }
    if (ko.size() == 0) {
      t2 = inf;
      break;
    }
    t2++;
    b = find_b();
    p = b;
  }
  if (t1 < t2) {
    cout << t1 << endl;
    for (long long i = 0; i < n; i++) {
      cout << vec1[i] + 1 << ' ';
    }
  } else {
    cout << t2 << endl;
    for (long long i = 0; i < n; i++) {
      cout << vec2[i] + 1 << ' ';
    }
  }
}