package Debug13 is

   procedure Compile (P : Natural);

end Debug13;