11 lines
245 B
Text
11 lines
245 B
Text
procedure main()
|
|
write(sflatten(" [[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8, []]"))
|
|
writelist(flatten( [[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8, []]))
|
|
end
|
|
|
|
procedure writelist(L)
|
|
writes("[")
|
|
every writes(" ",image(!L))
|
|
write(" ]")
|
|
return
|
|
end
|