1 2 3 4 5 6 7
with Case_Optimization_Pkg1; use Case_Optimization_Pkg1; package Case_Optimization1 is function Len (E : Element) return Integer; end Case_Optimization1;