*>-<*
      *> Author: Brian Tiffin
      *> Dedicated to the public domain
      *>
      *> Date: October 2016
      *> Modified: 2016-11-29/05:18-0500
      *>
      *> Tectonics: cobc -x tightloop-cobol.cob
      *>+<*
      *> Sum of values from 0 to 16777216
       identification division.
       program-id. tightloop-cob.

       data division.
       working-storage section.
       01 total        usage binary-double value 0.
       01 counter      usage binary-long.
       01 upper        usage binary-long.

       procedure division.
       compute upper = 2**24
       perform varying counter from 0 by 1 until counter > upper
           add counter to total
       end-perform
       display total 
       goback.
       end program tightloop-cob.