#!/usr/bin/env perl use strict; use warnings; my $n = <>; print $n * ($n + 1) / 2