-- Chapter 22 - Program 1
package Starter is

   type MY_INTEGER is new INTEGER range 5..150;

   type MY_FLOAT is new FLOAT;

   type WOODEN_BOX is
      record
         Length : FLOAT;
         Width  : FLOAT;
         Height : FLOAT;
      end record;

   function "+" (Left, Right : WOODEN_BOX) return WOODEN_BOX;

   type STEEL_BOX is new WOODEN_BOX;

   function "-" (Left, Right : STEEL_BOX) return STEEL_BOX;

end Starter;



-- There is no implementation for this example program.

-- Result of execution
--
-- (This fragment cannot be executed)