Map Block Function In Haskell