package Concat5_Pkg2 is

  procedure Compare (S : String);

end Concat5_Pkg2;