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

main :: IO ()
main = do
  let strColl = M.fromList [("foo", "1")] :: Map String String
  let numColl = fmap read strColl :: Map String Int
  print numColl