sub industry{ 
     return if $tree-huggers; 
     $OZONE{statosphere}--;
     $OZONE{city-streets}++;
     industry;
}