#include <cstdio>

#include <cstdio>

#include <cerrno>

#include <cerrno>

#include <unistd.h>

#include <unistd.h>

using namespace std;

using namespace std;

#define RATIONAL_HH

#define RATIONAL_HH

#include "std-string.hh"

#include "std-string.hh"

/**

/**

   Rational numbers.  Included is support for + and - infinity.

   Rational numbers.  Included is support for + and - infinity.

#include <algorithm>   /* find, reverse, sort */

#include <algorithm>   /* find, reverse, sort */

#include <functional>  /* unary_function */

#include <functional>  /* unary_function */

#include <cassert>

#include <cassert>

using namespace std;

using namespace std;

#endif

#endif

#include <libguile.h>

#include <libguile.h>

/*

/*

  Hack for various MacOS incarnations.

  Hack for various MacOS incarnations.

#include <cstdio>

#include <cstdio>

using namespace std;

using namespace std;

#include "std-string.hh"

#include "std-string.hh"

#include "lily-proto.hh"

#include "lily-proto.hh"

#include "translator.icc"

#include "translator.icc"

/*

/*

  TODO:

  TODO: