A force-directed graph-drawing program implemented in Haskell