with

    Ada.Command_Line,
    Ada.Directories;


package Misc is


    Origin : constant String;


    function Max
           (A, B : in Integer)
        return Integer;


    function Min
           (A, B : in Integer)
        return Integer;


private


    Origin : constant String := Ada.Directories.Containing_Directory
        (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));


end Misc;