rational_numbers-io.ads

package Rational_Numbers.IO is
   procedure Get(X: out Rational);
   procedure Put(X: in Rational);
end Rational_Numbers.IO;