[Haskell] Can anyone help me with partition numbers?