Added Pool2 in haskell