Class Fraction

back

addToFraction: arg

	^ Fraction top: top * arg bottom + (bottom * arg top) bottom: bottom * arg bottom