##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date started: April 2017
# Modified: 2017-04-17/01:17-0400 btiffin
#
# tectonics: unicon -s numeric-identity.icn
#
##+
#
# numeric-identity.icn, demonstrate the prefix plus operator
#
procedure main()
write(+-1)
write(+--1)
write(+++---1)

# the size of -1 is 2 as in "-1", identity does not change that
write(*+-1)

# the size of -0 is 1 as in "0", identity does not change that
write(*+-0)

write("type(\"123\"): " || type("123"))
write("type(+\"123\"): " || type(+"123"))

# raises a run-time error
write(+"abc")
end