##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-12-14/11:53-0500
# 
# Tectonics:
#     gcc -o tightloop-cfunc.so -shared -fpic tightloop-cfunc.c
#     unicon -s tightloop-loadfunc.icn
##+
#
# tightloop trial, sum of values from 0 to 16777216
#
procedure main()
    faster := loadfunc("./tightloop-cfunc.so", "tightloop")
    total := faster(2^24)
    write(total)
end