var vy,vx:array[1..25] of byte;
n,i:byte;
x,y,m:longint;
f,g:text;
cuv1,cuv2:string[16];
cuv:string[32];
begin
assign(f,'lampa.in');reset(f);
assign(g,'lampa.out');rewrite(g);
read(f,n);
readln(f,m);
readln(f,cuv);
vx[1]:=1;
vx[2]:=0;
vy[1]:=0;
vy[2]:=1;
for i:=3 to n do begin
vx[i]:=vx[i-2]+vx[i-1];
vy[i]:=vy[i-2]+vy[i-1];
end;
for x:=1 to n do
begin
for y:=1 to n do
begin
if vx[n]*x+vy[n]*y=m then break;
end;
if vx[n]*x+vy[n]*y=m then break;
end;
if n mod 2=0 then
begin
cuv1:=copy(cuv,1,x);
cuv2:=copy(cuv,x+1,y);
writeln(g,cuv2);
writeln(g,cuv1)
end
else
begin
cuv1:=copy(cuv,1,x);
cuv2:=copy(cuv,x+1,y);
writeln(g,cuv1);
writeln(g,cuv2);
end;
close(f);
close(g);
end.