#include<cstdio>

#include<iostream>

using namespace std;

#define ull unsigned long long

#define ll long long

#define R register ll

#define pause (for(R i=1;i<=10000000000;++i))

#define In freopen("NOIPAK++.in","r",stdin)

#define Out freopen("out.out","w",stdout)

namespace Fread {

static char B[<<],*S=B,*D=B;

#ifndef JACK

#define getchar() (S==D&&(D=(S=B)+fread(B,1,1<<15,stdin),S==D)?EOF:*S++)

#endif

inline int g() {

    R ret=,fix=; register char ch; while(!isdigit(ch=getchar())) fix=ch=='-'?-:fix;

    if(ch==EOF) return EOF; do ret=ret*+(ch^); while(isdigit(ch=getchar())); return ret*fix;

} inline bool isempty(const char& ch) {return (ch<=||ch>=);}

inline void gs(char* s) {

    register char ch; while(isempty(ch=getchar()));

    do *s++=ch; while(!isempty(ch=getchar()));

}

} using Fread::g; using Fread::gs;

const int N=,M=;

int n,m,ans;

ll f[N][N][N];

//f[i][j][k]:所处行编号i，含有一个棋子的列数j，含有两个棋子的列数k

signed main() {

    n=g(),m=g(); f[][][]=;

    for(R i=;i<=n;++i) for(R j=;j<=m;++j) for(R k=;k<=m-j;++k){

        f[i][j][k]+=f[i-][j][k];

        //不填棋子

        if(j>=) f[i][j][k]+=f[i-][j-][k]*(m-k-j+);

        //选空列填一个棋子

        if(k>=) f[i][j][k]+=f[i-][j+][k-]*(j+);

        //选含有一个棋子的某列

        if(j>=) f[i][j][k]+=f[i-][j-][k]*(m-k-j+)*(m-k-j+)/;

        //选两个空列分别填一个棋子

        if(k>=) f[i][j][k]+=f[i-][j][k-]*(m-k-j+)*j;

        //选一个空列和含有一个棋子的某列分别填一个棋子

        if(k>=) f[i][j][k]+=f[i-][j+][k-]*(j+)*(j+)/;

        //选含有一个棋子的某两列分别填一个棋子

        f[i][j][k]%=M;

    } for(R j=;j<=m;++j) for(R k=;k<=m-j;++k) ans=(ans+f[n][j][k])%M;

    printf("%d\n",ans);

}