main = putStrLn . show =<< fmap (\x -> sum [1..read x]) getLine