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