"which" in Haskell