First haskell exercise passing