var v:array[1..100] of integer;
    r,i,j,n,a,m,b,c,d,x:longint;
    ok:boolean;
    f,g:text;
begin
assign(f,'multiplu.in');
assign(g,'multiplu.out');
reset(f);
rewrite(g);
readln(f,a,b);
c:=a;
d:=b;
repeat
r:=c mod d;
c:=d;
d:=r;
until d=0;
x:=a*b div c;
repeat
m:=m+x;
ok:=true;
n:=m;
repeat
r:=n mod 10;
n:=n div 10;
if (r<>0) and (r<>1) then ok:=false;
until (n=0) or (ok=false);
until ok=true;
writeln(g,m);
close(f);
close(g);
end.