import Control.Monad
import qualified Data.Set as S
main = do
  n <- readLn
  ms <- replicateM n readLn :: IO [Int]
  let ss = scanl (flip S.insert) S.empty ms
  print $ sum $ zipWith (\s m -> S.size s - S.findIndex m s - 1) (tail ss) ms