#include //#include #pragma GCC optimize("Ofast") using namespace std; #define reps(i,s,n) for(int i = s; i < n; i++) #define rep(i,n) reps(i,0,n) #define Rreps(i,n,e) for(int i = n - 1; i >= e; --i) #define Rrep(i,n) Rreps(i,n,0) #define ALL(a) a.begin(), a.end() #define fi first #define se second typedef long long ll; typedef vector vec; typedef vector mat; ll N,M,H,W,Q,K,A,B; string S; typedef pair P; const ll INF = (1LL<<58); template class modint{ public: ll x; modint(){x = 0;} modint(ll _x) : x((_x < 0 ? ((_x += (LLONG_MAX / mod) * mod) < 0 ? _x + (LLONG_MAX / mod) * mod : _x) : _x)%mod){} modint operator-(){ return x == 0 ? 0 : mod - x; } modint& operator+=(const modint& a){ if((x += a.x) >= mod) x -= mod; return *this; } modint operator+(const modint& a) const{ return modint(*this) += a; } modint& operator-=(const modint& a){ if((x -= a.x) < 0) x += mod; return *this; } modint operator-(const modint& a) const{ return modint(*this) -= a; } modint& operator*=(const modint& a){ (x *= a.x)%=mod; return *this; } modint operator*(const modint& a) const{ return modint(*this) *= a; } modint pow(unsigned long long pw) const{ modint res(1), comp(*this); while(pw){ if(pw&1) res *= comp; comp *= comp; pw >>= 1; } return res; } //以下、modが素数のときのみ modint inv() const{ return modint(*this).pow(mod - 2); } modint& operator/=(const modint &a){ (x *= a.inv().x)%=mod; return *this; } modint operator/(const modint &a) const{ return modint(*this) /= a; } }; #define mod1 998244353 #define mod2 1000000007 using mint = modint; ostream& operator<<(ostream& os, const mint& a){ os << a.x; return os; } using vm = vector; const ll MAX_N = ll(1e+6) + 3000; vm fact(MAX_N, mint(1)), fact_inv(MAX_N, mint(1)); void makefact(){ reps(i,2,MAX_N) { fact[i] = fact[i-1] * mint(i); fact_inv[i] = fact[i].inv(); } } mint nCm(ll n, ll m){ return fact[n] * fact_inv[n-m] * fact_inv[m]; } mint nCm_inv(ll n, ll m){ return fact[n-m] * fact[m] * fact_inv[n]; } mint f(int i, int j, ll a){ if(a == 0) return mint(0); mint res(a); res *= fact[a + i + j]; res /= i + j + 1; res *= fact_inv[a]; return res; } int main() { makefact(); cin>>N>>M; mat s(N + 1, vec(M + 1, 0)); rep(i, N) rep(j, M) cin>>s[i][j]; mint ans(0); rep(i, N){ rep(j, M){ mint temp(0); temp += f(i, j, s[i][j]) * 3; temp -= f(i, j, s[i + 1][j]) + f(i, j, s[i][j + 1]) + f(i, j, s[i][j] - 1); temp *= fact_inv[i] * fact_inv[j]; ans += temp; } } cout<