##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-13/15:47-0400 ##+ # # serial.icn, serial number of structure # procedure main() L := [1,2,3] S := [1,1,1] write("L: ", serial(L)) write("S: ", serial(S)) S := [1,2,3] write("S: ", serial(S)) insert(S, 4) write("S: ", serial(S)) end