Practice and sample Haskell code