package Opt22_Pkg is

   procedure Fail;

   procedure Put (S : String);

end Opt22_Pkg;