##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/22:57-0400
##+
#
# link.icn, demonstrate Unicon link
#

# link in the reflective extended image function
link ximage

procedure main()
    L := [1,2,3]
    write("image of L:")
    write(image(L))

    write("\nximage of L:")
    write(ximage(L))
end