10 cls
20 sstring$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
30 for sicount = 1 to len(sstring$)
40   if instr("[] ,",mid$(sstring$,sicount,1)) = 0 then
50     sflatter$ = sflatter$+scomma$+mid$(sstring$,sicount,1)
60     scomma$ = ", "
70   endif
80 next sicount
90 print "[";sflatter$;"]"
100 end