Running through the sample code to learn myself a haskell