Fixed haskell example for number 1