##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-12-14/11:55-0500
#
# Tectonics: unicon -s tightloop.icn
##+
#
# tightloop trial, sum of values from 0 to 16777216
#
procedure main()
    total := 0
    every i := 0 to 2^24 do total +:= i
    write(total)
end