Problem: A student, Kita_masa, is taking an English examination. In this examination, he has to write a sentence of length m.

Since he completely forgot the English grammar, he decided to consider all sentences of length m constructed by concatenating the words he knows and write the K-th sentence among the candidates sorted in lexicographic order. He believes that it must be the correct sentence because K is today's lucky number for him.

Each word may be used multiple times (or it's also fine not to use it at all) and the sentence does not contain any extra character between words. Two sentences are considered different if the order of the words are different even if the concatenation resulted in the same string.



Input

The first line contains three integers n (1 \leq n \leq 100), m (1 \leq m \leq 2000) and K (1 \leq K \leq 10^{18}), separated by a single space. Each of the following n lines contains a word that Kita_masa knows. The length of each word is between 1 and 200, inclusive, and the words contain only lowercase letters. You may assume all the words given are distinct.

Output

Print the K-th (1-based) sentence of length m in lexicographic order. If there is no such a sentence, print "-".

Examples

Input

2 10 2
hello
world


Output

helloworld


Input

3 3 6
a
aa
b


Output

aba


Input

2 59 1000000000000000000
a
b


Output

-

Solution (in CPP):

Solution:
#include <iostream>
#include <cstdio>
#include <cassert>
#include <cstring>
#include <vector>
#include <valarray>
#include <array>
#include <queue>
#include <set>
#include <unordered_set>
#include <map>
#include <unordered_map>
#include <algorithm>
#include <cmath>
#include <complex>
#include <random>

using namespace std;
using ll = long long;
using ull = unsigned long long;

const ll INF = 1e18 + 100000;

ll mymul(ll a, ll b) {
    if (a == 0) return 0;
    b = min(b, INF);
    ll res = 0;
    if (a % 2) {
        res += b;
    }
    return min(res + mymul(a/2, b*2), INF);
}

const int MN = 110;
const int MM = 2300;

int main() {
    int n, m;
    ll k;
    cin >> n >> m >> k;
    string s[MN];
    int sz[MN];
    for (int i = 0; i < n; i++) {
        cin >> s[i];
        sz[i] = (int)s[i].size();
    }

    ll dp[MM] = {};
    dp[0] = 1;
    for (int i = 1; i <= m; i++) {
        for (int j = 0; j < n; j++) {
            if (i < sz[j]) continue;
            dp[i] += dp[i-sz[j]];
            dp[i] = min(dp[i], INF);
        }
    }

    if (dp[m] < k) {
        cout << "-" << endl;
        return 0;
    }

    bool tabuu[MN][MM] = {};
    ll num[MM] = {};
    num[0] = 1;

    string result;
    for (int fe = 0; fe < m; fe++) {
        for (int i = 0; i < n; i++) {
            if (sz[i] <= fe && !tabuu[i][fe-sz[i]]) {
                num[fe] += num[fe-sz[i]];
                num[fe] = min(num[fe], INF);
            }
        }

        ll cnt[26] = {};
        for (int i = 0; i < n; i++) {
            for (int j = max(0, fe-sz[i]+1); j <= min(fe, m-sz[i]); j++) {
                if (tabuu[i][j]) continue;
                int c = s[i][fe-j] - 'a';
                cnt[c] += mymul(num[j], dp[m-(j+sz[i])]);
                cnt[c] = min(cnt[c], INF);
            }
        }
        for (int i = 0; i < 26; i++) {
            if (k <= cnt[i]) {
                result += i+'a';
                break;
            }
            k -= cnt[i];
        }

        for (int i = 0; i < n; i++) {
            for (int j = max(0, fe-sz[i]+1); j <= fe; j++) {
                if (s[i][fe - j] != result[fe]) {
                    tabuu[i][j] = true;
                }
            }
        }
    }

    cout << result << endl;
    return 0;
}