1package body Aggr21_Pkg is
2
3   procedure Init (R : out Rec) is
4   begin
5      R := (A => 5, S => <>, N => 7);
6   end;
7
8end Aggr21_Pkg;
9