Problem: PolandBall is standing in a row with Many Other Balls. More precisely, there are exactly n Balls. Balls are proud of their home land — and they want to prove that it's strong.

The Balls decided to start with selecting exactly m groups of Balls, each consisting either of single Ball or two neighboring Balls. Each Ball can join no more than one group.

The Balls really want to impress their Enemies. They kindly asked you to calculate number of such divisions for all m where 1 ≤ m ≤ k. Output all these values modulo 998244353, the Enemies will be impressed anyway.

Input

There are exactly two numbers n and k (1 ≤ n ≤ 109, 1 ≤ k < 215), denoting the number of Balls and the maximim number of groups, respectively.

Output

You should output a sequence of k values. The i-th of them should represent the sought number of divisions into exactly i groups, according to PolandBall's rules.

Examples

Input

3 3


Output

5 5 1 

Input

1 1


Output

1 

Input

5 10


Output

9 25 25 9 1 0 0 0 0 0 

Note

In the first sample case we can divide Balls into groups as follows: 

{1}, {2}, {3}, {12}, {23}.

{12}{3}, {1}{23}, {1}{2}, {1}{3}, {2}{3}.

{1}{2}{3}.

Therefore, output is: 5 5 1.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int N = 1 << 16 | 5;
const long long mod = 998244353;
namespace Poly {
int w[N], rev[N];
inline int Pow(int x, int exp) {
  int r = 1;
  for (; exp; exp >>= 1, x = 1LL * x * x % mod)
    if (exp & 1) r = 1LL * r * x % mod;
  return r;
}
inline void Init() {
  int tmp = Pow(3, (mod - 1) >> 16);
  for (int i = w[0] = 1, j = 1 << 16; i < j; i++)
    w[i] = (long long)w[i - 1] * tmp % mod;
}
inline void Dft(int *a, int n) {
  int E = 1 << n;
  for (int i = 0; i < E; i++) {
    if (i & 1)
      rev[i] = rev[i - 1] | (E >> 1);
    else
      rev[i] = rev[i >> 1] >> 1;
    if (rev[i] < i) swap(a[rev[i]], a[i]);
  }
  register int x, y;
  for (int i = 1, d = 1; d <= n; i <<= 1, d++)
    for (int j = 0; j < E; j += 1 << d)
      for (int k = j; k < j + i; k++) {
        x = a[k];
        y = (long long)a[k + i] * w[(k - j) << (16 - d)] % mod;
        a[k] = x + y;
        a[k + i] = x - y;
        if (a[k] >= mod) a[k] -= mod;
        if (a[k + i] < 0) a[k + i] += mod;
      }
}
inline void Mul(int *a, int *b, int *c, int n) {
  for (int i = 0, E = 1 << n; i < E; i++) c[i] = (long long)a[i] * b[i] % mod;
  reverse(c + 1, c + (1 << n));
  Dft(c, n);
  int inv = Pow(1 << n, mod - 2);
  for (int i = 0, E = 1 << n; i < E; i++) c[i] = (long long)c[i] * inv % mod;
}
}  // namespace Poly
int na[N], nb[N], nc[N], tmp[N];
namespace Ans {
int a[N], b[N], c[N];
inline void Add(int E = 1 << 15) {
  memcpy(c, b, sizeof(int) * (E + 5));
  memcpy(b, a, sizeof(int) * (E + 5));
  for (int i = 1; i < E; i++)
    a[i] = ((long long)a[i] + b[i - 1] + c[i - 1]) % mod;
}
inline void Double() {
  int l = 1 << 15 | 5;
  while (!a[l]) l--;
  int t = 0;
  while ((1 << t) <= l + l) t++;
  Poly ::Dft(a, t);
  Poly ::Dft(b, t);
  Poly ::Dft(c, t);
  Poly ::Mul(a, a, na, t);
  Poly ::Mul(b, b, nc, t);
  Poly ::Mul(c, c, tmp, t);
  for (int i = 1, E = 1 << 15; i < E; i++) na[i] = (na[i] + nc[i - 1]) % mod;
  for (int i = 1, E = 1 << 15; i < E; i++) nc[i] = (nc[i] + tmp[i - 1]) % mod;
  Poly ::Mul(a, b, nb, t);
  Poly ::Mul(b, c, tmp, t);
  for (int i = 0, E = 1 << 15; i < E; i++) {
    a[i] = na[i];
    c[i] = nc[i];
    if (!i)
      b[i] = nb[i];
    else
      b[i] = (tmp[i - 1] + nb[i]) % mod;
  }
  for (int i = 1 << 15, E = 1 << 16; i < E; i++) a[i] = b[i] = c[i] = 0;
}
}  // namespace Ans
inline void solve(int n) {
  if (n <= 256) {
    Ans ::a[0] = 1;
    for (int i = 1; i <= n; i++) Ans ::Add(i + 1);
  } else if (n & 1) {
    solve(n - 1);
    Ans ::Add();
  } else {
    solve(n >> 1);
    Ans ::Double();
  }
}
int main() {
  int n, k;
  Poly ::Init();
  scanf("%d%d", &n, &k);
  solve(n);
  for (int i = 1; i <= k; i++) printf("%d%c", Ans ::a[i], i == k ? '\n' : ' ');
  return 0;
}