{-
n+m=o
余事象使って
全ての組み合わせ o(o-1)/2
奇数になるのは偶数と奇数 n*m
-}

main = do
  li <- getLine
  let [n,m] = map read $ words li
  let ans = compute n m
  print ans

compute :: Int -> Int -> Int
compute n m = o * pred o `div` 2 - n * m
  where
    o = n + m
