Some Interesting Haskell Codes