//no-unlocked
ll f[1d6 + 2][10];
{
	ll @N;
	rep(i, 10) f[1][i] = 1;
	rep(i, 1, N + 1) {
		rep(j, 10) rep(k, j + 1) (f[i + 1][j] += f[i][k]) %= MD;
	}
	ll ans = 0;
	rep(i, 10) (ans += f[N][i]) %= MD;
	wt(ans);
}