( PICK       copy the n-th stack value to the top of the stack )

: pick                            ( n --- n )
  2 *                             ( 2*n)
  sp@                             ( address of top of stack)
  swap -                          ( n-th stack address)
  @                               ( fetch n-th stack value)
;