##-
# Dedicated to the public domain
# Date: August 2016
# Modified: 2016-10-10/04:44-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, &phi, [], "Unicon and COBOL, together at last")
    write()
    write("Unicon     : unicob completed with ", result)
end