@verb #1400:"reap" this none this rxdo #5839
@program #1400:"reap" this none this
$perm_utils:can_hack() || raise(E_PERM)
this:_kick(this)
for meal in (this.items)
  if (meal:isa($food) && time() > meal.spoil_time)
    meal:sub_announce_all($msg:substitute(meal, "%T suddenly disintegrates into a pile of dust  and blows away."))
    `$recycler:recycle(meal) ! E_PERM'
  endif
endfor
this:_kick(this)
.