var fi,fo:text;
    p,n,a,b:longint;
    sol:int64;
function valid:boolean;
begin
  if (sol<>0)and(sol mod a=0)and(sol mod b=0) then valid:=true
     else valid:=false;
end;
procedure back(k:integer);
var i,j:integer;
begin
  if (k=p+1) then
   if valid=true then
     begin
       writeln(fo,sol);
       close(fo);
       halt;
     end
  else
   else
    for i:=0 to n-1 do
      begin
        sol:=sol*10+i;;
        back(k+1);
        for j:=1 to p-k+1 do
          sol:=sol div 10;
      end;
end;
procedure solv;
begin
  p:=18; n:=2;
  back(1);
end;
begin
  assign(fi,'multiplu.in'); reset(fi);
  assign(fo,'multiplu.out'); rewrite(fo);
  read(fi,a,b);
  close(fi);
  sol:=0;
  solv;
end.