Code from my learning of haskell