{
TASK:RTRI
LANG:PASCAL
}
program rtri;
var trg : longint;
    m,n : byte;
    i   : byte;
BEGIN
readln(m,n);
trg := m*n;
for i := 2 to m do trg := trg + (m-i+1)*n;
for i := 2 to n do trg := trg + (n-i+1)*m;
trg := trg*4;
for i := 1 to m do
 if ((n-2*i) < 0) then break
                  else trg := trg + 2*(m-i+1)*(n-2*i+1);
for i := 1 to n do
 if ((m-2*i) < 0) then break
                  else trg := trg + 2*(n-i+1)*(m-2*i+1);
writeln(trg);
END.