with Text_Io;
package body Rational_Io is
    procedure Put_Line (Item : String) is
    begin
        Text_Io.Put ("*** Rational *** - ");
        Text_Io.Put (Item);
        Text_Io.New_Line;
    end Put_Line;
end Rational_Io;