Listing 3

istream &operator>>(istream &is, rational &r)
     {
     long n, d;
     if (is >> n >> d)
           r = rational(n, d);
     return is;
     }

// End of File