\ \-
\ Author: Brian Tiffin
\ Dedicated to the public domain
\
\ Code will only work with 64 bit ficl
\
\ Date: October 2016
\ Modified: 2016-11-29/05:20-0500
\
\ Tectonics: ficl tightloop-ficl.fr
\ \+
( Sum of values from 0 to 16777216)
variable total
: tightloop ( -- )  1 24 lshift 1+ 0 do  i total +!  loop ;
0 total !  tightloop  total ? cr
bye