My implementation of which utility in Haskell.