program t1139;
var n,m,i,j,x:longint;
begin
    readln(n,m);
    if m>n then begin i:=m;m:=n;n:=i;end;
    i:=n;j:=m;
    while i mod j>0 do begin x:=j;j:=i mod j;i:=x;end;
    n:=n div j;
    m:=m div j;
    writeln((m+n-1)*j);
end.