main = do
  li <- getLine
  let n = read li
  let ans = compute n
  print ans

-- k は k+1 で割ると 0 余り k
-- 1からN-1まではこれをして、Nだけは残った1で割って余り0
-- つまり sum [1..N-1]

compute :: Int -> Int
compute n = n * (n-1) `div` 2
