##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-13/15:55-0400 ##+ # # set.icn, create a new set # link fullimag procedure main() S := set() write(fullimage(S)) S := set(1,3,5) write(fullimage(S)) S := set([1,2,3,4,5,5,4,3,2,1]) write(fullimage(S)) end