[ dup nest? if
      [ [] swap witheach
          [ nested
            swap join ] ] ]     is reverse      (       x --> x       )