Added Superior Order in Haskell