Some very simple Haskell code