-- -----------------------------------------------------------
-- |                                                          |
-- |           The body package with silly function           |
-- |                                                          |
-- -----------------------------------------------------------

package body New_Type is
	
	function Random_Month (Mon: Month) return Month is
		
		begin
			return (Mon);
		
	end Random_Month;
			
end New_Type;

