practice haskell code