var e:longint;
a,b:1..1415;
s:1..2000000;
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;
e:=s;
repeat
verif(e,0,ok);
e:=e+s;
until ok;
write(g,e-s);
close(g);
end.