type Tree_level_logic is ('0', '1', 'Z');
type Traffic_Signal is ( BLUE, YELLOW, RED );
subtype nibble is std_logic_vector( 3 downto 0 );