program multiplu;
var f,g:text;
a,b,i,k,cmmmc,aux:longint;
rez:array[1..100] of integer;
gasit:boolean;
begin
  assign(f,'multiplu.in'); assign(g,'multiplu.out');
  reset(f); rewrite(g);
  read(f,a,b);
  cmmmc:=0;
  if a>b then
  begin
     for i:=1 to b do
      if a*i mod b=0 then begin cmmmc:=a*i; break; end
  end
  else
     for i:=1 to a do
      if b*i mod a=0 then begin cmmmc:=b*i; break; end;
  a:=cmmmc;
  gasit:=false;
  k:=0;
  while not gasit do
  begin
  rez[1]:=rez[1]+1;
  i:=1;
  while rez[i]=2 do
  begin
    rez[i]:=0;
    rez[i+1]:=rez[i+1]+1;
    i:=i+1;
  end;
  if i>k then k:=i;
  aux:=0;
  for i:=k downto 1 do
    aux:=(rez[i]+aux*10) mod a;
  if aux=0 then gasit:=true;
  end;
  for i:=k downto 1 do
   write(g,rez[i]);
  close(f); close(g);
end.