Problem: Please pay attention to the unusual memory limit in this problem.

In a parallel universe, Satan is called "Trygub". For that reason, the letters of his namesake were deleted from the alphabet in ancient times.

The government has n workers standing in a row and numbered with integers from 1 to n from left to right. Their job categories can be represented as a string s of length n, where the character s_i represents the job category of the i-th worker.

A new law will be approved to increase the equality between the workers. The government decided to make everyone have the same job category by performing the following operation any number of times (possibly zero).

There is a fixed rational parameter k=\frac ab describing how easy it is to convince the public, and it will be used to determine the success of an operation.

In an operation, the government first selects a job category x with at least one worker at the current moment. Suppose i_1,…, i_m (i_1<…<i_m) are the positions of all the workers with job category x. If k⋅ (i_m-i_1+1)≤ m, the government is able to choose any job category y with at least one worker at the current moment and change the job category of all workers with job category x to job category y.

If it is possible to make all workers have job category x, we say that x is obtainable. Can you tell the government the set of obtainable job categories?

Input

The first line contains three integers n, a, b (1 ≤ n ≤ 5000, 1≤ a≤ b≤ 10^5) — the number of workers and the numerator and denominator of the parameter k, respectively.

The second line contains a string s of length n, consisting of lowercase English characters — the job categories of each worker. The characters 't', 'r', 'y', 'g', 'u', and 'b' do not appear in the string s.

Output

Print an integer c equal to the number of obtainable job categories followed by c space-separated characters — the obtainable job categories sorted in the lexicographical order.

Example

Input


7 1 2
comicom


Output


3 c m o

Note

The first operation must select the job category 'i' because all other job categories cannot satisfy the condition, therefore 'i' is not obtainable.

Below is showed how to obtain 'c', 'm', and 'o'. The square brackets denote the segment containing all workers of the selected category, the red color denotes this category and the blue color denotes the new category after the change.

  * Get 'c': 
    1. (com\color{red}{[i]}com → com\color{#1E90FF}{[o]}com) 
    2. (c\color{red}{[o}m\color{red}{o}c\color{red}{o]}m → c\color{#1E90FF}{[m}m\color{#1E90FF}{m}c\color{#1E90FF}{m]}m) 
    3. (c\color{red}{[mmm}c\color{red}{mm]} → c\color{#1E90FF}{[ccc}c\color{#1E90FF}{cc]}) 
  * Get 'm': 
    1. (com\color{red}{[i]}com → com\color{#1E90FF}{[o]}com) 
    2. (c\color{red}{[o}m\color{red}{o}c\color{red}{o]}m → c\color{#1E90FF}{[c}m\color{#1E90FF}{c}c\color{#1E90FF}{c]}m) 
    3. (\color{red}{[cc}m\color{red}{ccc]}m → \color{#1E90FF}{[mm}m\color{#1E90FF}{mmm]}m) 
  * Get 'o': 
    1. (com\color{red}{[i]}com → com\color{#1E90FF}{[c]}com) 
    2. (\color{red}{[c}om\color{red}{cc]}om → \color{#1E90FF}{[m}om\color{#1E90FF}{mm]}om) 
    3. (\color{red}{[m}o\color{red}{mmm}o\color{red}{m]} → \color{#1E90FF}{[o}o\color{#1E90FF}{ooo}o\color{#1E90FF}{o]}) 

Solution (in CPP):

Solution:
//starusc
#include<bits/stdc++.h>
using namespace std;
inline int read(){
	int x=0,f=1,c=getchar();
	while(!isdigit(c)){if(c=='-')f=-1;c=getchar();}
	while(isdigit(c)){x=(x<<1)+(x<<3)+(c^48);c=getchar();}
	return f==1?x:-x;
}
const int N=20,M=5004,K=1<<20;
int n,A,B,tot,S,idx[N],c[N],L[K],R[K],cou[K],f[K];
char s[M];
vector<int>ans;
inline bool check(int s){
	return A*(R[s]-L[s]+1)<=B*cou[s];
}
inline bool comp(int x,int y){
	return L[1<<x]<L[1<<y];
}
int main(){
//	freopen("1.in","r",stdin);
	n=read();A=read();B=read();
	scanf("%s",s+1);
	for(int i=1;i<=n;i++)s[i]-='a';
	for(int i=0,x;i<26;i++){
		x=0;
		for(int j=1;j<=n;j++)if(s[j]==i){x=j;break;}
		if(!x)continue;
		idx[tot]=i;
		L[1<<tot]=x;
		for(int j=n;j;j--)if(s[j]==i){R[1<<tot]=j;break;}
		for(int j=1;j<=n;j++)if(s[j]==i)cou[1<<tot]++;
		if(check(1<<tot))f[1<<tot]=1;
		tot++;
	}
	for(int i=0;i<tot;i++)c[i]=i;
	sort(c,c+tot,comp);
	S=(1<<tot)-1;
	f[0]=1;
	for(int s=1;s<S;s++){
		for(int i=0,x=0;i<tot;i++)if((s>>c[i])&1){
			x|=(1<<c[i]);
			if(f[x]&&f[s^x]){
				f[s]=1;
				break;
			}
		}
		if(!L[s]){
			for(int i=0;i<tot;i++)if((s>>i)&1){
				L[s]=min(L[s^(1<<i)],L[1<<i]);
				R[s]=max(R[s^(1<<i)],R[1<<i]);
				cou[s]=cou[s^(1<<i)]+cou[1<<i];
			}
		}
//		if(s==10){
//			cerr<<check(s)<<" "<<((s>>3)&1)<<" "<<f[s^(1<<3)]<<" dsf\n";
//		}
		for(int i=0;i<tot;i++)if(check(s)&&((s>>i)&1)&&f[s^(1<<i)]){f[s]=1;break;}
	}
//	for(int i=0;i<=S;i++)cerr<<i<<" "<<f[i]<<" "<<check(i)<<" "<<L[i]<<" "<<R[i]<<" "<<cou[i]<<"\n";
	for(int i=0;i<tot;i++)if(f[S^(1<<i)]){
		ans.push_back(idx[i]);
	}
	cout<<ans.size()<<" ";
	for(auto v:ans)cout<<(char)(v+'a')<<" ";
	return (0-0);
}