program knutt_mrgan_pratt;
  var f,f2:text;
      s:array [0..4000000] of char;
      pre:array [0..4000000] of longint;
      length,length2,i,j,k:longint;
begin
  assign(f,'strmatch.in');
  reset(f);
  assign(f2,'strmatch.out');
  rewrite(f2);
  while not seekeoln(f) do
    begin
      read(f,s[i]);
      inc(i);
    end;
  length:=i;
  s[i]:='&';inc(i);
  readln(f);
  while not seekeof(f) do
    begin
      read(f,s[i]);
      inc(i);
    end;

  close(f);
  close(f2);
end.