1package Opt42 is
2
3   type Index_Type is range 1 .. 7;
4   type Row_Type is array (Index_Type) of Float;
5   type Array_Type is array (Index_Type) of Row_Type;
6
7   function "*" (Left, Right : in Array_Type) return Array_Type;
8
9end Opt42;
10