use strict;
use warnings;
my $number = $ARGV[0];
my $sum_of_squares = sub{
    my $n = shift;
    return $n * ($n + 1) * (2*$n +1) / 6;
};

print $sum_of_squares->($number);