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


'Code 'borrowed' from Run BASIC
 
Public Sub Main()
Dim sComma, sString, sFlatter As String
Dim siCount As Short
 
sString = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
For siCount = 1 To Len(sString)
 If InStr("[] ,", Mid$(sString, siCount, 1)) = 0 Then 
  sFlatter = sFlatter & sComma & Mid(sString, siCount, 1)
  sComma = ","
 End If
Next
Print "["; sFlatter; "]"
 
End