/O> [ 3 ** ] is cubed ( n --> n )
...

Stack empty.

/O> ' [ 1 2 3 4 5 6 7 8 9 10 ]
... [] swap witheach
...   [ cubed join ]
...

Stack: [ 1 8 27 64 125 216 343 512 729 1000 ]

/O> drop
...

Stack empty.

/O> ' [ 1 2 3 4 5 6 7 8 9 10 ]
... dup witheach
...   [ cubed swap i^ poke ]
...

Stack: [ 1 8 27 64 125 216 343 512 729 1000 ]