My first program in Haskell