PROGRAM	"Flatten a list"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
  n$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
  FOR i = 1 TO LEN(n$)
    IF INSTR("[] ,",MID$(n$,i,1)) = 0 THEN
      flatten$ = flatten$ + c$ + MID$(n$,i,1)
      c$ = ", "
    END IF
  NEXT i
  PRINT "[";flatten$;"]"
END FUNCTION

END PROGRAM