##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date started: November, 2016
# Modified: 2016-12-14/11:52-0500
#
# Tectonics: perl tightloop-perl.pl
##+
# sum of values from 0 to 16777216
my $total = 0;
for (my $n = 0; $n <= 2 ** 24; $n++) {
    $total += $n;
}
print "$total\n";
