DISTANCE1191 PAS

var a,b:ansistring;
    da,db:array['a'..'z'] of longint;
procedure nhap;
begin
    readln(a);
    readln(b);
end;

procedure giai;
var res,i:longint;
    c:char;
begin
    for i:=1 to length(a) do
        inc(da[a[i]]);
    for i:=1 to length(b) do
        inc(db[b[i]]);
    res:=0;
    for c:='a' to 'z' do
        res:=res+abs(da[c]-db[c]);
    write(res);
end;

begin
    assign(input,'distance1191.inp');reset(input);
    assign(output,'distance1191.out');rewrite(output);
    nhap;
    giai;
end.