5 lines
118 B
Text
5 lines
118 B
Text
(
|
|
(dup 'quotation? any?) 'flatten while
|
|
) ^deep-flatten
|
|
|
|
((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ()) deep-flatten puts!
|