var m,i:integer;
    a,b:1..1415;
    s:1..2000000;
    c,d,e:longint;
    ok:boolean;
    f,g:text;
procedure verif(x:longint;p:byte;var sem:boolean);
begin
if x<>0 then begin
    if (p<>1)and(p<>0)then sem:=false else verif(x div 10,x mod 10,sem);
    end else
    if(p<>1)and(p<>0)then sem:=false else sem:=true;
end;
BEgin
assign(f,'multiplu.in');reset(f);
assign(g,'multiplu.out');rewrite(g);
readln(f,a,b);
s:=a*b; c:=s; d:=s; e:=s;
repeat
verif(c,0,ok);
c:=c+a;
until ok;
repeat
verif(d,0,ok);
d:=d+b;
until ok;
repeat
verif(e,0,ok);
e:=e+s;
until ok;
if c>d then if d>e then write(g,e-s) else write(g,d-b)
    else if c>e then write(g,e) else write(g,c-a);
close(f);close(g);
end.