nameCharRanges :: [(Int, Int)]
nameCharRanges =
  nameStartCharRanges
  ++ [(0x0300, 0x036F), (0x203F, 0x2040)]
nameCharRanges :: [(Int, Int)]
nameCharRanges =
  nameStartCharRanges
  ++ [(0x0300, 0x036F), (0x203F, 0x2040)]
nameCharRanges =
  nameStartCharRanges
  ++ [(0x0300, 0x036F), (0x203F, 0x2040)]