##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/22:56-0400
##+
#
# ipl-wrap.icn, demonstrate short string accumulated wrap
#
link wrap

# wrap printable ASCII with a width of 16 characters per line
procedure main()
    wrap()
    every write(wrap(!&ascii[33:-1], 16))
    write(wrap())
end