with broken;
with Ada.Text_IO;

procedure test_us is
   Holder : broken.Broken_Type;
   A      : broken.Broken_Type;
begin
   broken.Replace (A, "Correct");

   broken.Add (Holder, A);
   Ada.Text_IO.Put_Line ("The Value in Holder is: " & broken.Value (Holder));

   broken.Replace (A, "Incorrect");
   Ada.Text_IO.Put_Line ("The Value in Holder is: " & broken.Value (Holder));
end test_us;