#!/usr/bin/perl

use strict;
use warnings;

#use Math::Random::MT qw(rand);

my $sum = 0;

for (1..1000000){
    $sum += 0.5;
    #print &rand()."\n";

}

print $sum."\n";