Useful Smalltalk

SeriationEngine applyOn: ((Random new next:100) @ (Random new next:100))

The objects need a dist method to be defined on them/

More see Dendrogram Seriation