with Ada.Numerics.Generic_Elementary_Functions;
package P is new Ada.Numerics.Generic_Elementary_Functions (Float);