1generic
2
3   type T is private;
4   Init_Value : T;
5
6package Opt25_Pkg1 is
7
8   Var : T := Init_Value;
9   procedure Swap (A, B : in out T);
10
11end Opt25_Pkg1;
12