var f,g:text;
a:array[1..25]of record
                    x,y:byte;
                    end;
v:array[1..765]of char;
s1,s2,s3,s4:string;
j,i,n,la,lb:integer;
m,p:longint;
begin
assign(f,'lampa.in');
reset(f);
readln(f,n,m);
a[1].x:=1;
a[1].y:=0;
a[2].x:=0;
a[2].y:=1;
for i:=3 to n do
  begin
    a[i].x:=a[i-1].x+a[i-2].x;
    a[i].y:=a[i-1].y+a[i-2].y;
  end;
assign(g,'lampa.out');
rewrite(g);
for i:=1 to 22 do
read(f,v[i]);
for j:=1 to 255 do
     begin
        la:=j;
        p:=m-(la*a[n].x);
        if p mod a[n].y=0 then begin
                                 s1:='';
                                 s2:='';
                                 s3:='';
                                 s4:='';
                                 lb:=p div a[n].y;

                                 for i:=1 to la do
                                     s1:=s1+v[i];
                                 for i:=la+1 to la+lb do
                                     s2:=s2+v[i];
                                 for i:=(la+lb+1) to (2*la+lb) do
                                    s3:=s3+v[i];
                                 for i:=(la+lb+1) to (2*lb+la) do
                                    s4:=s4+v[i];
                                 if (s1=s3)or (s2=s4) then begin writeln(g,s1);writeln(g,s2); break; end;
                                 end;
        end;
close(g);
end.