program bly(input,output);
var
  st1,st2,st:string;
  a,b:array[1..80]of char;
  i,j,k,max:integer;
  f1,f2:text;

  function check(l:integer):boolean;
  var
    i:integer;
  begin
    for i:=1 to l do if a[i]<>b[i] then exit(false);
    exit(true);
  end;

begin
  assign(f1,'echo.in');
  assign(f2,'echo.out');
  reset(f1);
  rewrite(f2);
  readln(f1,st1);
  readln(f1,st2);
  if length(st1)>length(st2) then k:=length(st2)
                             else k:=length(st1);
  max:=0;
  for i:=1 to k do begin
    st:=copy(st1,1,i);
    for j:=1 to i do a[j]:=st[j];
    st:=copy(st2,length(st2)-i+1,i);
    for j:=1 to i do b[j]:=st[j];
    if check(i) then if i>max then max:=i;
    st:=copy(st2,1,i);
    for j:=1 to i do a[j]:=st[j];
    st:=copy(st1,length(st1)-i+1,i);
    for j:=1 to i do b[j]:=st[j];
    if check(i) then if i>max then max:=i;
  end;
  writeln(f2,max);
  close(f1);
  close(f2);
end.