*-*
* Author: Brian Tiffin
* Dedicated to the public domain
*
* Date: November, 2016
* Modified: 2016-12-14/11:53-0500
*
* Tectonics: snobol4 tightloop-snobol.sno
*+*
* Sum of values from 0 to 16777216
        total = 0
        n = 0
loop    total = total + n
        n = lt(n, 2 ** 24) n + 1               :s(loop)
        output = total
end