Procedure
habitat_comfort_level/1
An indicator of how comfortable a sloth might find the habitat.
habitat_comfort_level :: proc(habitat: Habitat) -> int