My Haskell sample code