// square().

// General includes.
#include "cl_sysdep.h"

// Specification.
#include "cln/real.h"


// Implementation.

#include "cl_R.h"
#include "cln/rational.h"
#include "cln/integer.h"
#include "cln/float.h"
#include "cln/sfloat.h"
#include "cln/ffloat.h"
#include "cln/dfloat.h"
#include "cln/lfloat.h"
#include "cl_RA.h"
#include "cl_I.h"

namespace cln {

const cl_R square (const cl_R& x)
#if 0
GEN_R_OP1_2(x, square, return)
#else // fully inlined, faster
GEN_R_OP1_7(x, square, return)
#endif

}  // namespace cln