Problem: Ember and Storm play a game. First, Ember picks a labelled tree T of n vertices, such that the degree of every vertex is at most d. Then, Storm picks two distinct vertices u and v in this tree and writes down the labels of the vertices in the path from u to v in a sequence a1, a2... ak. Finally, Ember picks any index i (1 ≤ i < k) in the array. Now he performs one of the following two operations exactly once:

  * flip the subrange [i + 1, k] and add ai to it. After this, the sequence becomes a1, ... ai, ak + ai, ak - 1 + ai, ... ai + 1 + ai
  * negate the subrange [i + 1, k] and add ai to it. i.e., the array becomes a1, ... ai, - ai + 1 + ai, - ai + 2 + ai, ... - ak + ai



Ember wins if the array is monotonically increasing or decreasing after this. Otherwise Storm wins.

The game can be described by the tuple (T, u, v, i, op) where op is «flip» or «negate» depending on the action Ember chose in the last turn. Find the number of tuples that can occur if Ember and Storm play optimally. When they play optimally, if there are multiple moves by which they are guaranteed to win, then they may play any of the winning moves. Otherwise, if someone loses no matter what they play, then they may play any of the possible moves.

Report the answer modulo m.

Input

The input consists of a single line containing three integers n, d and m (2 ≤ n ≤ 200, 1 ≤ d < n, 1 ≤ m ≤ 2·109).

Output

Print a single number — the number of possible tuples if Ember and Storm play as described, modulo m.

Examples

Input

2 1 1000000007


Output

4


Input

3 1 250


Output

0


Input

3 2 100


Output

36

Note

In the first sample case, there is only one possible tree. There are two possible paths, 1 to 2 and 2 to 1. For both paths, i can only be 1, and op can take both possibilities. Therefore, the answer is 4.

In the second sample, there are no possible trees.

In the third sample, there are three possible trees. 

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
bool debug = 0;
int n, m, k;
int dx[4] = {0, 1, 0, -1}, dy[4] = {1, 0, -1, 0};
string direc = "RDLU";
long long ln, lk, lm;
void etp(bool f = 0) {
  puts(f ? "YES" : "NO");
  exit(0);
}
void addmod(int &x, int y, int mod = 1000000007) {
  assert(y >= 0);
  x += y;
  if (x >= mod) x -= mod;
  assert(x >= 0 && x < mod);
}
void et() {
  puts("-1");
  exit(0);
}
long long fastPow(long long x, long long y, int mod = 1000000007) {
  long long ans = 1;
  while (y > 0) {
    if (y & 1) ans = (x * ans) % mod;
    x = x * x % mod;
    y >>= 1;
  }
  return ans;
}
long long gcd1(long long x, long long y) {
  long long z = y;
  while (x % y != 0) {
    z = x % y;
    x = y;
    y = z;
  }
  return z;
}
int d;
long long f[205][205], C[205][205], ss[205];
void comb(int n) {
  C[0][0] = 1;
  for (int i = 1; i <= n; i++) {
    C[i][0] = C[i][i] = 1;
    for (int j = 1; j < i; j++) {
      C[i][j] = (long long)(C[i - 1][j - 1] + C[i - 1][j]) % m;
    }
  }
}
void fmain(int ID) {
  scanf("%d%d%d", &n, &d, &m);
  f[1][0] = 1;
  ss[1] = 1;
  comb(n);
  for (int i = 2; i <= n; i++) {
    for (int j = 1; j <= min(d, i - 1); j++) {
      for (int k = 1; k < i; k++) {
        f[i][j] += (long long)f[i - k][j - 1] * C[i - 2][k - 1] % m * ss[k] % m;
        f[i][j] %= m;
      }
    }
    for (int j = 1; j < d; j++) {
      ss[i] += f[i][j];
      ss[i] %= m;
    }
  }
  long long S = 0;
  for (int(i) = 1; (i) <= (int)(n); (i)++) {
    for (int j = 0; j <= d; j++) {
      for (int k = 0; j + k <= d; k++)
        if (k != 1) {
          S += (long long)f[i][j] * f[n - i + 1][k] % m;
          S %= m;
        }
    }
  }
  int tn = (n - 1) * n * 2;
  int ans = (long long)S * tn % m;
  printf("%d\n", ans);
}
int main() {
  int t = 1;
  for (int(i) = 1; (i) <= (int)(t); (i)++) {
    fmain(i);
  }
  return 0;
}