Task

Write a function to flatten the nesting in an arbitrary list of values.

Your program should work on the equivalent of this list:

  [[1], 2, [[3, 4], 5], [[[]]], [[[6]]], 7, 8, []]

Where the correct result would be the list:

   [1, 2, 3, 4, 5, 6, 7, 8]

Related task

   Tree traversal


LET sstring$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
FOR sicount = 1 TO LEN(sstring$)
    IF POS("[] ,",(sstring$)[sicount:sicount+1-1]) = 0 THEN
       LET sflatter$ = sflatter$ & scomma$ & (sstring$)[sicount:sicount+1-1]
       LET scomma$ = ", "
    END IF
NEXT sicount
PRINT "["; sflatter$; "]"
END