with Ada.Text_IO; use Ada.Text_IO; package Priority_Assignment is pragma Elaborate_Body; NO_FEASIBLE_PRIORITY_ASSIGNMENT_EXCEPTION: exception; NO_FEASIBLE_PRIORITY_ASSIGNMENT_WITH_CRPD_EXCEPTION: exception; end Priority_Assignment;