Example - from class Magnitude

<= arg
	^ self < arg or: [ self = arg ]

>= arg
	^ arg <= self

< arg
	^ self <= arg and: [ self ~= arg ]

> arg
	^ arg < self