import System.Environment

fact    :: Int -> Int
fact 1  = 1
fact n  = n + fact (n - 1)
 
main =  do x <- getArgs
           print . fact . read $ head x