|Map of GM percussions, indexed by name.
gmPercussionByName :: Map.Map String Int 
gmPercussionByName = Map.fromList $ map swap gmPercussionList

-
gmPercussionByName :: Map.Map String Int
gmPercussionByName = Map.fromList $ map swap gmPercussionList
gmPercussionByName = Map.fromList $ map swap gmPercussionList