var s,a,b:string;
i,j,k,ans,min,p:longint;
begin
while not(eof) do begin
readln(s);
p:=pos(' ',s);
a:=copy(s,1,p-1);
b:=copy(s,p+1,length(s));
i:=1;
j:=1;
ans:=0;
while i<=length(a)do begin
k:=j;
while j<=length(b) do begin
if a[i]=b[j] then begin
inc(ans);
break;
end;
inc(j);
end;
if j=length(b)+1 then j:=k;
inc(i);
end;
min:=length(s)-1-ans;
i:=1;
j:=1;
ans:=0;
while i<=length(b)do begin
k:=j;
while j<=length(a) do begin
if b[i]=a[j] then begin
inc(ans);
break;
end;
inc(j);
end;
if j=length(a)+1 then j:=k;
inc(i);
end;
if length(s)-1-ans<min then min:=length(s)-1-ans;
writeln(min);
end;
end.