var n,k,c,a,b,i,d,j:longint;
    f,g:text;
    v:array[1..10000] of char;
begin
assign(f,'lampa.in'); reset(f);
readln(f,n,k);
i:=1;  a:=1; b:=1; c:=a+b;
while i<n-2 do
begin
a:=b;
b:=c;
c:=a+b;
inc(i);
end;     i:=1;
while (a*i)+(b*i)<=k do
i:=i+1;
i:=i-1;
assign(g,'lampa.out'); rewrite(g);
if (a*i)+(b*i)<k then  if a>b then
begin d:=i+1;
while (a*i)+(b*d)<k do
d:=d+1;
for j:=1 to i do begin
read(f,v[j]);
write(g,v[j]);    end;
writeln(g);
for j:=1 to d do begin
read(f,v[j]);
write(g,v[j]);
end;
end
else begin d:=i+1;
while (a*d)+(b*i)<k do
d:=d+1;
for j:=1 to d do begin
read(f,v[j]);
write(g,v[j]);    end;
writeln(g);
for  j:=1 to i do begin
read(f,v[j]);
write(g,v[j]);
end;
end;
close(f); close(g);
end.