001 Haskell (first haskell solution)