while true
do
  thought = mind:getThought()
  if not thought:makesSubjectSad() then
      thought:Destroy()
  end
  wait(5)
end