haskell example program