[Haskell-beginners] How to define ord manually.