notas-tsfc/dic.hs

import qualified Data.Map as M
  let myDict = M.fromList[("First", 1), ("Second", 2),
                          ("Third", 3)]