package body Concat1_Pkg is

  function Ident (I : Integer) return Integer is begin return I; end;

end Concat1_Pkg;