Added Fraction and Pool3 in haskell