Class Integer
back
subtractFromFraction: arg
^ arg - (Fraction top: self)