Using Map In Haskell