##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date started: April 2017
# Modified: 2017-04-17/01:12-0400 btiffin
#
# tectonics: unicon -s complement-operator.icn -x
#
##+
#
# complement-operator.icn, demonstrate the cset complement operator
#
procedure main()
cs := 'ABCDEVWXYZabcdevwxyz'
write(*~cs)
write((~cs)[48+:60])
end