##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/22:56-0400
##+
#
# ipl-lists.icn, Demonstrate some of the lists utilities
#
link lists
procedure main()
    L := [1,2,3,4,5,4,3,2,1]
    # unadorned image
    write(limage(L))
    # list repl
    write(limage(lrepl(L[1:3], 3)))
    # list interweave
    write(limage(linterl(L, [6,7])))
    # list unique
    write(limage(lunique(L)))
end