program multiplu;



var f,g:text;
    a,b,x,y,r,cm,l,cm1,i:longint;
    v,v1:array[1..1000] of byte;
    ok:boolean;

begin
assign (f,'multiplu.in');
assign (g,'multiplu.out');
reset (f);
rewrite (g);
read (f,x,y);
a:=x;
b:=y;
repeat
r:= a mod b;
a:=b;
b:=r;
until b=0;
cm:=x*y div a;

l:=0;
cm1:=cm;

repeat
l:=l+1;
v[l]:=cm1 mod 10;
cm1:=cm1 div 10;
until cm1=0;

for i:=1 to l do
v1[i]:=v[i];



repeat
r:=0;
for i:=1 to l+1 do
if v1[i]+v[i]+r>9 then
    begin
    v1[i]:=(v1[i]+v[i]+r) mod 10;
    r:=1;
    end
   else
    begin
    v1[i]:=v1[i]+v[i]+r;
    r:=0;
    end;
if v1[l+1]<>0 then l:=l+1;

ok:=true;

for i:=1 to l+1 do
if v1[i]>1 then ok:=false;
until ok;


for i:=l downto 1 do
write (g,v1[i]);
close (f);
close (g);
end.