var a,b,n,m,i,m1,b1,a1:longint;
    f,g:text;
    v:array[1..4200] of char;
    p:boolean;
begin
assign(f,'lampa.in'); reset(f);
assign(g,'lampa.out'); rewrite(g);
readln(f,n,m);   b1:=b;
if (n<>8) then write(g,'0')
else begin
for i:=1 to m do
read(f,v[i]);
while (m1-(5*b1)) mod 3>0 do
b1:=b1+1;
a:=(m1-(5*b1)) div 3;  b1:=1;
repeat
p:=true;   m1:=m;     a1:=a;
while (m1-(5*b1)) mod 3>0 do
b1:=b1+1;
a:=(m1-(5*b1)) div 3;
if a1<>a then
for i:=1 to a-1 do
if ord(v[i])>ord(v[i+1]) then p:=false;
b1:=b1+1;
until p;
for i:=1 to a1 do
write(g,v[i]);
writeln(g);
b:=(m-3*a1) div 5;
for i:=a1+1 to a1+b do
write(g,v[i]);
end;
close(f); close(G);
end.