program NOD_SOFTWARE;
var c,t,p,q,i,j,n,m:integer;
    fin,fout:text;
    v:array [1..10000] of char;
    a,b,s:string;
    aux:char;
procedure unde;
begin
     i:=n;
     while i<m do
     begin
          inc(i);
          j:=1;
          while s[j]=v[i] do
          begin
               inc(i);
               inc(j);
          end;
          if j >2 then
          begin
{               writeln(fout,i-j+1);}
               exit;
          end;
     end;
end;
begin
     assign(fin,'lampa.in'); reset(fin);
     assign(fout,'lampa.out'); rewrite(fout);

     readln(fin,n,m);
{     for i:=1 to m do read(fin,v[i]);
     if n mod 2 = 1 then
     begin
          for j:=m downto m-(m div n)+1 do b:=b+v[j];
          for j:=1 to (m-(m div n)+1) div 2 do
          begin
               aux:=b[j];
               b[j]:=b[m-(m div n) +1];
               b[m-m div n +1]:=aux;
          end;
     end;}
     writeln(fout,0);
     {unde;

     q:=i-j;
     i:=q;
     j:=q;
     while ((i >0) and (j>0)) do
     begin
          dec(i);
          t:=i;
          c:=0;
          while ((v[i]=v[j]) and (i<>j+1)) do
          begin
               inc(i);
               dec(j);
               inc(c);
          end;
          if c >=4 then
          begin
               for p:=1 to j-1 do write(fout,v[p]);
               writeln(fout);
               for p:=1 to (i-j) div 2 do write(fout,v[p+i-j+1]);
               break;
          end
          else
          begin
               j:=q;
               i:=t;
          end;
     end;}
     writeln(fout,a);
     writeln(fout,b);
     close(fin);
     close(fout);
end.