{
TASK:RTRI
LANG:PASCAL
}
program rtri;
var trg : longint;
    m,n : byte;
    i,j : byte;
BEGIN
readln(m,n);
trg := 0;
if (n > m) then
            begin
             m := m + n;
             n := m - n;
             m := m - n;
            end;

for j := 1 to m do
 if (n < j) then break
            else
             begin
              for i := 2 to m do trg := trg + 4*(m-i-j+2)*(n-j+1);
              for i := 1 to n do trg := trg + 4*(n-i-j+2)*(m-j+1);

              if (n >= 2*j) then trg := trg + 2*(m-j+1)*(n-2*j+1);
              if (m >= 2*j) then trg := trg + 2*(n-j+1)*(m-2*j+1);
             end;
writeln(trg);
END.