[ dup size dip
      [ witheach
          [ over swap peek swap ] ]
      nip pack ]                    is arrange ( [ [ --> [ )

  ' [ 10 20 30 40 50 ]
  3 5 comb
  witheach
    [ dip dup arrange
      witheach [ echo sp ]
      cr ]
  drop
  cr
  $ "zero one two three four" nest$
  ' [ 4 3 1 0 1 4 3 ]  arrange
  witheach [ echo$ sp ]