Class Fraction
back
top: t
^ self in: (self in: super new at: 1 put: t) at: 2 put: 1