3 with Ada
.Strings
.Bounded
;
7 new Ada
.Strings
.Bounded
.Generic_Bounded_Length
(<>);
8 type NB
is new BI
.Bounded_String
;
10 package BI
is new Ada
.Strings
.Bounded
.Generic_Bounded_Length
(30);
11 type NB
is new BI
.Bounded_String
;
13 package GI
is new G
(BI
, NB
);