agingEffects :: Map Age (Map Ability Int)
agingEffects =
  fromList [(Child
            ,fromList [(Strength,-3)
                      ,(Constitution,-3)
                      ,(Dexterity,-1)
                      ,(Intelligence,-1)
                      ,(Wisdom,-1)
                      ,(Charisma,-1)])
           ,(MiddleAged
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])
           ,(Old
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])
           ,(Venerable
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])]
agingEffects :: Map Age (Map Ability Int)
agingEffects =
  fromList [(Child
            ,fromList [(Strength,-3)
                      ,(Constitution,-3)
                      ,(Dexterity,-1)
                      ,(Intelligence,-1)
                      ,(Wisdom,-1)
                      ,(Charisma,-1)])
           ,(MiddleAged
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])
           ,(Old
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])
           ,(Venerable
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])]
agingEffects =
  fromList [(Child
            ,fromList [(Strength,-3)
                      ,(Constitution,-3)
                      ,(Dexterity,-1)
                      ,(Intelligence,-1)
                      ,(Wisdom,-1)
                      ,(Charisma,-1)])
           ,(MiddleAged
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])
           ,(Old
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])
           ,(Venerable
            ,fromList [(Strength,-1)
                      ,(Constitution,-1)
                      ,(Dexterity,-1)
                      ,(Intelligence,1)
                      ,(Wisdom,1)
                      ,(Charisma,1)])]