# Pastebin 8KJNYCTs
part2l :: Map Text [(Int, Text)] -> Int
part2l m = lm Map.! "shiny gold"
  where lm = fmap (\xs -> sum [n + (n * lm LMap.! x) | (n, x) <- xs ]) m