Class Fraction
back
+ arg
^ arg addToFraction: self