uses crt;
var a,b,res: longint;
function sumChar(n: longint): longint;
var res: longint;
begin
    res := 0;
    while n > 0 do
    begin
        res := res + (n mod 10);
        n := n div 10;
    end;
    exit(res);
end;
function gcd(a,b: longint): longint;
begin
    if a = 0 then exit(b);
    exit(gcd(b mod a, a));
end;
function max(a,b: longint): longint;
begin
    if a > b then exit(a);
    exit(b);
end;
procedure solve;
var i,n: longint;
begin
    i := 1;
    n := gcd(a,b);
    while i*i <= n do
    begin
        if n mod i = 0 then
            if n / i = i then res := max(res, sumChar(i))
            else res := max(res, max(sumChar(i), sumChar(n div i)));
        inc(i);
    end;
end;
begin
    readln(a,b);
    res := 0;
    solve();
    write(res);
end.