Problem: Anya loves to fold and stick. Today she decided to do just that.

Anya has n cubes lying in a line and numbered from 1 to n from left to right, with natural numbers written on them. She also has k stickers with exclamation marks. We know that the number of stickers does not exceed the number of cubes.

Anya can stick an exclamation mark on the cube and get the factorial of the number written on the cube. For example, if a cube reads 5, then after the sticking it reads 5!, which equals 120.

You need to help Anya count how many ways there are to choose some of the cubes and stick on some of the chosen cubes at most k exclamation marks so that the sum of the numbers written on the chosen cubes after the sticking becomes equal to S. Anya can stick at most one exclamation mark on each cube. Can you do it?

Two ways are considered the same if they have the same set of chosen cubes and the same set of cubes with exclamation marks.

Input

The first line of the input contains three space-separated integers n, k and S (1 ≤ n ≤ 25, 0 ≤ k ≤ n, 1 ≤ S ≤ 1016) — the number of cubes and the number of stickers that Anya has, and the sum that she needs to get. 

The second line contains n positive integers ai (1 ≤ ai ≤ 109) — the numbers, written on the cubes. The cubes in the input are described in the order from left to right, starting from the first one. 

Multiple cubes can contain the same numbers.

Output

Output the number of ways to choose some number of cubes and stick exclamation marks on some of them so that the sum of the numbers became equal to the given number S.

Examples

Input

2 2 30
4 3


Output

1


Input

2 2 7
4 3


Output

1


Input

3 1 1
1 1 1


Output

6

Note

In the first sample the only way is to choose both cubes and stick an exclamation mark on each of them.

In the second sample the only way is to choose both cubes but don't stick an exclamation mark on any of them.

In the third sample it is possible to choose any of the cubes in three ways, and also we may choose to stick or not to stick the exclamation mark on it. So, the total number of ways is six.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
unsigned long long* a;
unsigned long long s;
unsigned long long fact[19];
unsigned long long* msum;
unsigned long long per(int nach, int n, int k, unsigned long long s) {
  unsigned long long ans = 0;
  if (s == 0) {
    return 1;
  }
  if (msum[nach] < s) return 0;
  if (nach == n) return 0;
  if (nach < n - 2)
    if (a[nach] == a[nach + 1])
      if (a[nach + 2] == a[nach + 1])
        if (a[nach] != s)
          if (2 * a[nach] != s)
            if (a[nach] > 18 ||
                ((fact[a[nach]] != s) && (2 * fact[a[nach]] != s) &&
                 ((fact[a[nach]] + a[nach] != s)))) {
              ans += per(nach + 3, n, k, s);
              if (a[nach] <= s) ans += 3 * per(nach + 3, n, k, s - a[nach]);
              if (2 * a[nach] <= s)
                ans += 3 * per(nach + 3, n, k, s - 2 * a[nach]);
              if (3 * a[nach] <= s) ans += per(nach + 3, n, k, s - 3 * a[nach]);
              if ((k > 0) && (a[nach] <= 18)) {
                if (fact[a[nach]] <= s)
                  ans += 3 * per(nach + 3, n, k - 1, s - fact[a[nach]]);
                if (fact[a[nach]] + a[nach] <= s)
                  ans +=
                      6 * per(nach + 3, n, k - 1, s - fact[a[nach]] - a[nach]);
                if (fact[a[nach]] + 2 * a[nach] <= s)
                  ans += 3 * per(nach + 3, n, k - 1,
                                 s - fact[a[nach]] - 2 * a[nach]);
              }
              if ((k > 1) && (a[nach] <= 18)) {
                if (2 * fact[a[nach]] <= s)
                  ans += 3 * per(nach + 3, n, k - 2, s - 2 * fact[a[nach]]);
                if (2 * fact[a[nach]] + a[nach] <= s)
                  ans += 3 * per(nach + 3, n, k - 2,
                                 s - 2 * fact[a[nach]] - a[nach]);
              }
              if ((k > 2) && (a[nach] <= 18)) {
                if (3 * fact[a[nach]] <= s)
                  ans += per(nach + 3, n, k - 3, s - 3 * fact[a[nach]]);
              }
              return ans;
            }
  if (nach < n - 1)
    if (a[nach] == a[nach + 1])
      if (a[nach] != s)
        if (a[nach] > 18 || fact[a[nach]] != s) {
          ans += per(nach + 2, n, k, s);
          if (a[nach] <= s) ans += 2 * per(nach + 2, n, k, s - a[nach]);
          if (2 * a[nach] <= s) ans += per(nach + 2, n, k, s - 2 * a[nach]);
          if ((k > 0) && (a[nach] <= 18)) {
            if (fact[a[nach]] <= s)
              ans += 2 * per(nach + 2, n, k - 1, s - fact[a[nach]]);
            if (fact[a[nach]] + a[nach] <= s)
              ans += 2 * per(nach + 2, n, k - 1, s - fact[a[nach]] - a[nach]);
          }
          if ((k > 1) && (a[nach] <= 18))
            if (2 * fact[a[nach]] <= s)
              ans += per(nach + 2, n, k - 2, s - 2 * fact[a[nach]]);
          return ans;
        }
  ans += per(nach + 1, n, k, s);
  if (a[nach] <= s) ans += per(nach + 1, n, k, s - a[nach]);
  if (k > 0)
    if (a[nach] <= 18)
      if (fact[a[nach]] <= s) ans += per(nach + 1, n, k - 1, s - fact[a[nach]]);
  return ans;
}
bool myfunction(unsigned long long i, unsigned long long j) {
  unsigned long long mi, mj;
  mi = i;
  mj = j;
  if (mi > s) mi = 0;
  if (mj > s) mj = 0;
  if (mi <= 18)
    if (fact[mi] <= s) mi = fact[mi];
  if (mj <= 18)
    if (fact[mj] <= s) mj = fact[mj];
  return (mi > mj);
}
int main() {
  int k, n;
  fact[0] = 1;
  for (int i = 1; i <= 18; i++) fact[i] = fact[i - 1] * i;
  cin >> n >> k >> s;
  a = new unsigned long long[n];
  msum = new unsigned long long[n + 1];
  msum[n] = 0;
  for (int i = 0; i < n; i++) cin >> a[i];
  sort(a, a + n, myfunction);
  for (int i = n - 1; i >= 0; i--) {
    if (a[i] > s) {
      msum[i] = msum[i + 1];
      continue;
    }
    if (a[i] <= 18)
      if (fact[a[i]] <= s) {
        msum[i] = msum[i + 1] + fact[a[i]];
        continue;
      }
    msum[i] = msum[i + 1] + a[i];
  }
  cout << per(0, n, k, s) << endl;
}