package Traffic_Package is type Color is (Green, Yellow, Red, Unknown); type State is ( Highway_Light_Green, Highway_Light_Yellow, Highway_Light_Green, Highway_Light_Yellow); end Traffic_Package ;