#version 3.8;
global_settings {assumed_gamma 1.0 }


#macro gcd (a, b)

	#if (b = 0)
		#local Result = a;
	#else
		#local Result = gcd (b, mod (a, b));
	#end
	
	Result
#end


#macro gcdlcm (a, b)
	#local GCD = gcd (a, b);
	#local LCM = (a*b)/GCD;
	#local Result = array [2] {GCD, LCM};
	
	Result
#end

#declare Seed1 = seed (123);
#declare Seed2 = seed (92751);
#declare Seed3 = seed (123628);
#declare Seed4 = seed (92751334);

#declare M = 50;

#for (N, 1, 100)
	#local a = int (rand (Seed1)*M)+1;
	#local b = int (rand (Seed2)*M)+1;
	#local c = int (rand (Seed3)*M)+1;
	#local d = int (rand (Seed4)*M)+1;
	#local Factors = gcdlcm (b, d);
	#local lcm = Factors[1];
	#local Numerator = (a*lcm/b)+(c*lcm/d);
	#local Factors2 = gcdlcm (Numerator, lcm);
	#local _gcd = Factors2[0];
	#debug concat (str (a, 0, 0), "/", str (b, 0, 0), " + ", str (c, 0, 0), "/", str (d, 0, 0), "  =  ",
	str (Numerator, 0, 0), "/", str (lcm, 0, 0), "  =  ", str (Numerator/_gcd, 0, 0), "/", str (lcm/_gcd, 0, 0), "\n")
#end

#error "No objects in scene"