Haskell implementation of https://gist.github.com/amontalenti/8114359 from a non-haskell programmer.

HaskellMapsAndLists.hs

module Main where

import Data.Map (Map)
import qualified Data.Map as Map

main = let someItems = [1, 2, 3, 4]
           someMapping = Map.fromList [ ("ST", "started")
                                      , ("IP", "in progress")
                                      , ("DN", "done")
                                      ]
       in do mapM_ (putStrLn . show) someItems
             mapM_ (putStrLn . format) (Map.toList someMapping)
       where format (k, v) = k ++ " => " ++ v