[

define_tag:'lp_math_root',
		-description='Returns the nth root a number; square root is default.',
		-priority='replace',
		-required='decimal',
		-optional='root';

	// http://mathforum.org/library/drmath/view/52651.html
	
	if: !(local_defined:'root');
		// square root
		return: (math_sqrt: (decimal: #decimal));
	/if;
	
	local:'return' = (lp_math_antilog:((lp_math_log: (decimal:#decimal)) / (decimal: #root)));
	local:'temp' = (string:(lp_decimal_precisionset:#return, 2))->(removetrailing:'0') & ->(removetrailing:'.') &;
	if: #temp !>> '.';
		return: (decimal:#temp);
	/if;
	return: (lp_decimal_precisionset:#return);

/define_tag;

]