##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/23:02-0400
##+
#
# not.icn, Demonstrate the success/failure reversal reserved word
#
procedure main()
    # no write occurs, failure propogates
    write(not 1)

    a := not &fail
    write("not &fail is ", image(a))

    if not every 1 to 2 then write("turn every failure into success")
end