Added Egyption Fractions in Haskell