Secret Santa project in Haskell