Write A Fun Function In Haskell