#!/usr/bin/perl
$sum=0;
$count=0;
while () { 
	$sum += $count;
	$count+=1;
	if ($count >50) {last};
}
print "$sum\n"