label 1;
var
a:array[1..26]of char;
b:array[1..15]of longint;
n,i,j,l,c,ans,y,f:longint;
s:string;
begin
readln(l,c);
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then continue
else
begin
inc(j);
a[j]:=s[i];
end;
for i:=1 to c-1 do
for j:=i+1 to c do
if a[i]>a[j] then
begin
s[1]:=a[i];
a[i]:=a[j];
a[j]:=s[1];
end;
for i:=1 to l do
b[i]:=i;
while (ans0) and (f>1) and (y+f=l) then
begin
inc(ans);
for i:=1 to l do
write(a[b[i]]);
writeln;
end;
1:
j:=l;
while b[j]>=c do
begin
b[j]:=1;
dec(j);
end;
inc(b[j]);
for i:=2 to l do
if b[i]
