##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-10-11/01:39-0400
##+
#
# generate-elements, unary !
#
link ximage

procedure main()
    write("!3")
    every write(!3)

    write("\n!\"abc\"")
    every write(!"abc")

    write("\n![1,2,3]")
    every write(![1,2,3])

    write("\n!&ucase\\3")
    every write(!&ucase\3)

    write("\n!this file\\3")
    f := open(&file, "r")
    every write(!f\3)
    close(f)

    s := "abc"
    write("\nevery !s := 3  # with s starting as ", s)
    every !s := 3
    write("s now ", s)

    L := ["abc", "def", "ghi"]
    write("\nevery !L := \"xyz\"  # with L starting as ", ximage(L))
    every !L := "xyz"
    write(ximage(L))
end