package Real_Type is
package Real_Elementary_Functions is new Ada.Numerics.Generic_Elementary_Functions (Real);
subtype Real is Long_Float;