program infoarena_multiplu;
var l,x,i,j,k,k1,n,a,b,sol:longint;
    b1:array[1..17] of byte;


begin
assign(input,'multiplu.in');
reset(input);
read(a);readln(b);
close(input);
sol:=maxlongint;

for k1:=1 to 10 do
 begin
   k:=k1;
   x:=1;
   while (k<>0)and(k<>1) do
    begin
     b1[x]:=k mod 2;
     k:=k div 2;
     x:=x+1;
     end;
    b1[x]:=k;
    k:=0;
l:=0;
for k:=x downto 1 do
 begin
  l:=l+b1[k];
  l:=l*10;
 end;
 l:=l div 10;
  writeln(l);
  if (l mod a=0)and(l mod b=0) then if l<sol then sol:=l;
 end;

assign(output,'multiplu.out');
rewrite(output);
writeln(sol);
close(output);


end.