open System let rec sum n = let ans = 0 in if n < 0 then ans else n + sum (n-1) let n = int(Console.ReadLine()) printfn "%d" (sum n)