#include <bits/stdc++.h>
const int MAXN = 510;
const int MAXK = 1000010;
int n, m;
char mat[MAXN][MAXN];
struct op {
  char l;
  int x, y;
};
op lista[MAXK];
int k;
int dx[] = {0, 1, 0, -1};
int dy[] = {1, 0, -1, 0};
bool ver(int a, int b) {
  if (a <= n && a >= 1 && b <= m && b >= 1) return true;
  return false;
}
void faz(int a, int b) {
  k++;
  lista[k].l = 'B';
  lista[k].x = a;
  lista[k].y = b;
  mat[a][b] = 'B';
  for (int c = 0; c < 4; c++) {
    int xx = a + dx[c];
    int yy = b + dy[c];
    if (ver(xx, yy) && mat[xx][yy] == '.') {
      faz(xx, yy);
    }
  }
  k++;
  lista[k].l = 'D';
  lista[k].x = a;
  lista[k].y = b;
  mat[a][b] = 'D';
  k++;
  lista[k].l = 'R';
  lista[k].x = a;
  lista[k].y = b;
  mat[a][b] = 'R';
}
int main() {
  scanf("%d %d", &n, &m);
  for (int i = 1; i <= n; i++) {
    for (int j = 1; j <= m; j++) {
      scanf(" %c", &mat[i][j]);
    }
  }
  k = 0;
  for (int i = 1; i <= n; i++) {
    for (int j = 1; j <= m; j++) {
      if (mat[i][j] == '.') {
        k++;
        lista[k].l = 'B';
        lista[k].x = i;
        lista[k].y = j;
        mat[i][j] = 'B';
        for (int c = 0; c < 4; c++) {
          int xx = i + dx[c];
          int yy = j + dy[c];
          if (ver(xx, yy) && mat[xx][yy] == '.') {
            faz(xx, yy);
          }
        }
      }
    }
  }
  printf("%d\n", k);
  for (int i = 1; i <= k; i++) {
    printf("%c %d %d\n", lista[i].l, lista[i].x, lista[i].y);
  }
  return 0;
}
