agingStages :: [(AgeBounds,Age)]
agingStages =
  [((1,11),Child)
  ,((12,15),YoungAdult)
  ,((16,39),Adult)
  ,((40,59),MiddleAged)
  ,((60,79),Old)
  ,((80,200),Venerable)]
agingStages :: [(AgeBounds,Age)]
agingStages =
  [((1,11),Child)
  ,((12,15),YoungAdult)
  ,((16,39),Adult)
  ,((40,59),MiddleAged)
  ,((60,79),Old)
  ,((80,200),Venerable)]
agingStages =
  [((1,11),Child)
  ,((12,15),YoungAdult)
  ,((16,39),Adult)
  ,((40,59),MiddleAged)
  ,((60,79),Old)
  ,((80,200),Venerable)]