(
  (dup 'quotation? any?) 'flatten while
) ^deep-flatten

((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ()) deep-flatten puts!