test_rationalize = ->
	run_test [

		"rationalize(a/b+c/d)",
		"(a*d+b*c)/(b*d)",

		"rationalize(t*y/(t+y)+2*t^2*y*(2*t+y)^(-2))",
		"t*y*(6*t^2+y^2+6*t*y)/((t+y)*(2*t+y)^2)",

		"rationalize(x^(-2*a)+x^(-4*a))",
		"(1+x^(2*a))/(x^(4*a))",

		"rationalize(x^(1/3)+x^(2/3))",
		"x^(1/3)*(1+x^(1/3))",
	]


__lcm = ->
	save()

	p1 = pop()
	p2 = pop()

	push(p1)
	push(p2)
	multiply()
	push(p1)
	push(p2)
	gcd()
	divide()

	restore()