Some programs in Haskell