package Concat5_Pkg1 is

  procedure Scan (S : String);

end Concat5_Pkg1;