
input.ads,278
package My_Package isMy_Package/s2,48
  package Conversions isConversions/s6,108
    function From_Big_Real (Arg : Integer) return Num;From_Big_Real/f7,133
    type Num is digits <>;Num5,81
  type Missing_Tag is recordMissing_Tag/t10,208
    Num : Integer;Num11,237

input_1.adb,1666
procedure Input_1 isInput_1/p1,0
  procedure Generic_Reverse_Array (X : in out Array_T);Generic_Reverse_Array/p9,200
    type T is private;T4,32
    type Index is range <>;Index5,55
    type Array_T is array (Index range <>) of T;Array_T6,83
    with function Img (A, B: T) return boolean;Img8,152
  procedure Generic_Reverse_Array (X : in out Array_T) isGeneric_Reverse_Array/p11,257
	Tmp     : T;Tmp15,389
	X_Left  : T renames X (I);X_Left16,403
	X_Right : T renames X (X'Last + X'First - I);X_Right17,431
  type Color is (None, Black, Red, Green, Blue, White);Color/t26,603
  type Color is (None, Black, Red, Green, Blue, White);None26,603
  type Color is (None, Black, Red, Green, Blue, White);Black26,603
  type Color is (None, Black, Red, Green, Blue, White);Red26,603
  type Color is (None, Black, Red, Green, Blue, White);Green26,603
  type Color is (None, Black, Red, Green, Blue, White);Blue26,603
  type Color is (None, Black, Red, Green, Blue, White);White26,603
  type Color_Array is array (Integer range <>) of Color;Color_Array/t27,659
  procedure Reverse_Color_Array is new Generic_Reverse_ArrayReverse_Color_Array/p28,716
  type Shape is (None, Circle, Triangle, Square);Shape/t31,859
  type Shape is (None, Circle, Triangle, Square);None31,859
  type Shape is (None, Circle, Triangle, Square);Circle31,859
  type Shape is (None, Circle, Triangle, Square);Triangle31,859
  type Shape is (None, Circle, Triangle, Square);Square31,859
  type Shape_Array is array (Integer range <>) of Shape;Shape_Array/t32,909
  procedure Reverse_Shape_Array is new Generic_Reverse_ArrayReverse_Shape_Array/p33,966

input_2.ads,301
package input_2 isinput_2/s1,0
  type Generator is null record;Generator/t3,20
    type Unsigned is mod <>;Unsigned5,63
    type Real is digits <>;Real6,92
    with function Random (G: Generator) return Unsigned is <>;Random7,120
  function Random (G: Generator) return Real;Random/f8,183
