Behavior for recycling an object
(and (find-object percept kind 'BAY-1)
(find-object percept (recycler-for kind) :OUTSIDE)))
(do ((kinds (kinds-to-recycle) (cdr kinds))
(find-object percept (car kinds) 'BAY-1))
(recycler-for (car kinds))
(when (and obj-position recycler-position)
(execute-macrop `(pickup-from-bay ARM-1 BAY-1 ,obj-position))
(execute-macrop `(put-inside ARM-1 ,recycler-position))