USING: kernel math ;

IN: math.ratios.private

: ratio+d ( a/b c/d -- b*d ) [ denominator ] bi@ * ; inline