##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date started: February 2017
# Modified: 2017-04-17/08:48-0400 btiffin
##+
#
# opfuncs.icn, Calling operators as functions
#
# tectonics: unicon -s opfuncs.icn -x
#
link lists
procedure main()
    write("Multiply: ", "*"(3,5))
    write("Greater than (RHS): ", ">"(5,3))
    write("Less than (RHS): ", "<"(5,10))

    write("cset intersection: ", "**"('abcdefg', 'efghijk'))
    L := ['abcdefg', 'efghijk']
    write("cset union from list: ", "++"!L)


    result := 0
    L := [1,2,3,4,5,6,7,8,9]
    every result := "+"(result, !L)
    write("Sum of list: ", result)

    write("Section: ", limage("[:]"(L,3,6)))

    writes("ToBy: ")
    every writes("..."(1,9,2) || " ")
    write()
end