{
TASK:rtri
LANG:PASCAL
}

var
  a: array[0..30,0..30] of Longint;
  n,m: Integer;
  i,j: Integer;

procedure swap;
var
  pom: Integer;

begin
  pom:= n;
  n:= m; 
  m:= pom;
end;

begin
  readln(n,m);
  if n>m then
    swap;
  for i:= 0 to n do
    for j:= 0 to m do
      a[i,j]:= 0;

  for i:= 1 to n do
    for j:= i to m do
    begin
      a[i,j]:= a[i-1,j] + a[i,j-1] + (i+1)*(j+1) + 4;
      a[j,i]:= a[i,j];
    end;
  writeln(a[n,m] - (m+2));
end.