nestlist.icn: Procedures to interconvert strings and nested lists

link nestlist
November 1, 2005; Arthur C. Eschenlauer
This file is in the public domain.

Procedure s_list(L) produces a string-representation of a nested
list.

Procedure l_list(s) produces a nested list from s, its string
representation.
____________________________________________________________

# demo for reading nested numeric array from a string, e.g.,
#   [1,[2,3,[4]],[[5]]]
procedure main( )
  local line, m, i
  while line := read( )
    do
      if m := l_list( line )
        then write( s_list( m ) )
end