TOUINT48
#define RAND48_SEED TOUINT48(RAND48_SEED_0, RAND48_SEED_1, RAND48_SEED_2)
#define RAND48_MULT TOUINT48(RAND48_MULT_0, RAND48_MULT_1, RAND48_MULT_2)
(l) = TOUINT48((x)[0], (x)[1], (x)[2]); \
_rand48_seed = TOUINT48(RAND48_SEED_0, (unsigned short)seed,