A tuple class which defines an ordering among instances by comparing the values of the id slot:
TUPLE: sprite id name bitmap ; M: sprite <=> [ id>> ] compare ;