##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September, 2016
# Modified: 2016-10-03/22:47-0400
##+
#
# cset-samples.icn, demonstrate some Csets
#
procedure main()
    noDupes := 'hello'
    write("Given 'hello': ", noDupes, " ", image(noDupes))
    
    cs := 'abcdef'
    write(cs, " ", image(cs))

    complement := ~cs
    write("Size of complement of ", image(cs), ": ", *complement)

    write("Size of complement of &letters: ", *~&letters)
end