Competitive Programming in Haskell: Union-Find, part II {-# LANGUAGE RecordWildCards #-} import Control.Arrow ( (>>>) ) import Control.Monad.ST ( ST, runST ) import ...