(deffun put-pick-and-copy-pick (
  O_PUT_PICK
  O_ENTER_FOLD
  while not(test-end-fold) (O_COPY_PICK O_DOWN)
  O_EXIT_FOLD
))
