//#pragma GCC optimize("O3")
//#pragma GCC optimize("unroll-loops")
#include <bits/stdc++.h>
using namespace std;
#include <ext/pb_ds/assoc_container.hpp>
using namespace __gnu_pbds;
template <class T>
using Tree =
tree<T, null_type, less<T>, rb_tree_tag, tree_order_statistics_node_update>;
#define int long long
#define ll long long
#define pii pair<int, int>
#define pll pair<ll, ll>
#define fi first
#define se second
#define rep(i, a, b) for (int i = a; i <= b; ++i)
#define per(i, b, a) for (int i = b; i >= a; --i)
#define pb push_back
#define eb emplace_back
#define all(v) (v).begin(), (v).end()
#define lsb(x) (x)&(-x)
#define bug(x) cerr << #x << " " << x << endl;
void setIO(string name = "") {
ios_base::sync_with_stdio(false);
cin.tie(nullptr); cout.tie(nullptr);
if (!name.empty()) {
freopen((name + ".in").c_str(), "r", stdin);
freopen((name + ".out").c_str(), "w", stdout);
}
}
ll fexp(ll a, ll b, ll m) {
if (b == 0) return 1LL;
ll p = a;
ll ans = 1;
while (b > 0) {
if (b % 2 != 0) ans = (ans * p) % m;
p = (p * p) % m;
b >>= 1;
}
return ans;
}
const int MAXN = 3e3 + 10;
const int INF = 1e18 + 5;
const int MOD = 1e9 + 7;
char a[MAXN][MAXN];
int r[MAXN][MAXN], c[MAXN][MAXN];
void solve() {
int n,m;cin >> n >> m;
rep(i,1,n) rep(j,1,m) cin >> a[i][j];
rep(i,1,n) per(j,m,1) r[i][j] = r[i][j+1] + (a[i][j]=='O');
rep(i,1,m) per(j,n,1) c[j][i] = c[j+1][i] + (a[j][i]=='I');
int ans = 0;
rep(i,1,n) rep(j,1,m) if (a[i][j] == 'J') ans += c[i][j]*r[i][j];
cout << ans << '\n';
}
int32_t main() {
setIO();
int tt = 1;
//cin >> tt;
while (tt-- > 0) solve();
return 0;
}
