Rational Numbers - Haskell | SlaveCode