##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August, 2016
# Modified: 2016-10-03/22:47-0400
##+
#
# &current sample, using image for this unprintable datatype
#
procedure main()
    # create a co-expression
    coex := create {
        write("\t&current in coex: ", image(&current))
        write("\t&source  in coex: ", image(&source))
    }

    # show &current in main
    if &current === &source then
        write("&current in main: ", image(&current))
    else
        write("problem: &current not equal &source")

    # now show &current in the co-expression   
    @coex
end