added 001 Haskell solution