with Ada.Text_IO;
package Rationals.IO is
------------------------------------------------------------------
--|                                                              
--| Specification of the input/output child package for Rationals
--|                                                              
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: July 1995                                     
--|                                                              
------------------------------------------------------------------

  procedure Get (Item : out Rational);
  procedure Get (File: in Ada.Text_IO.File_Type; Item : out Rational);
  -- Pre : File is open
  -- Post: The first integer number read is the numerator of Item;
  --       the second integer number is the denominator of Item.
  --       A "/" between the two numbers is optional.
  --       The Rational constructor "/" is called 
  --       to produce a rational in reduced form.

  procedure Put (Item : in Rational);
  procedure Put (File: in Ada.Text_IO.File_Type; Item : in Rational);
  -- Pre : Item is defined; File is open
  -- Post: displays or writes the numerator and denominator of Item.
 
end Rationals.IO;