##-
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-10-10/04:45-0400
##+
#
# unicob.icn, load a COBOL module and show some integers
#
# tectonics: cobc -m -fimplicit-init unicob.cob
procedure main()
    # embed some COBOL
    unicob := loadfunc("./unicob.so", "unicob")
    result := unicob(7, 8, 9)
    write("unicob completed with ", result)
end