module forgex_unicode_gc_m use :: forgex_segment_m implicit none private public :: unicode_gc_Cn public :: unicode_gc_Lu public :: unicode_gc_Ll public :: unicode_gc_Lt public :: unicode_gc_Lm public :: unicode_gc_Lo public :: unicode_gc_Mn public :: unicode_gc_Me public :: unicode_gc_Mc public :: unicode_gc_Nd public :: unicode_gc_Nl public :: unicode_gc_No public :: unicode_gc_Zs public :: unicode_gc_Zl public :: unicode_gc_Zp public :: unicode_gc_Cc public :: unicode_gc_Cf public :: unicode_gc_Co public :: unicode_gc_Cs public :: unicode_gc_Pd public :: unicode_gc_Ps public :: unicode_gc_Pe public :: unicode_gc_Pc public :: unicode_gc_Po public :: unicode_gc_Sm public :: unicode_gc_Sc public :: unicode_gc_Sk public :: unicode_gc_So public :: unicode_gc_Pi public :: unicode_gc_Pf type(segment_t), parameter :: unicode_gc_Cn(*) = & [ & segment_t(888, 889), & segment_t(896, 899), & segment_t(907, 907), & segment_t(909, 909), & segment_t(930, 930), & segment_t(1328, 1328), & segment_t(1367, 1368), & segment_t(1419, 1420), & segment_t(1424, 1424), & segment_t(1480, 1487), & segment_t(1515, 1518), & segment_t(1525, 1535), & segment_t(1806, 1806), & segment_t(1867, 1868), & segment_t(1970, 1983), & segment_t(2043, 2044), & segment_t(2094, 2095), & segment_t(2111, 2111), & segment_t(2140, 2141), & segment_t(2143, 2143), & segment_t(2155, 2159), & segment_t(2194, 2198), & segment_t(2436, 2436), & segment_t(2445, 2446), & segment_t(2449, 2450), & segment_t(2473, 2473), & segment_t(2481, 2481), & segment_t(2483, 2485), & segment_t(2490, 2491), & segment_t(2501, 2502), & segment_t(2505, 2506), & segment_t(2511, 2518), & segment_t(2520, 2523), & segment_t(2526, 2526), & segment_t(2532, 2533), & segment_t(2559, 2560), & segment_t(2564, 2564), & segment_t(2571, 2574), & segment_t(2577, 2578), & segment_t(2601, 2601), & segment_t(2609, 2609), & segment_t(2612, 2612), & segment_t(2615, 2615), & segment_t(2618, 2619), & segment_t(2621, 2621), & segment_t(2627, 2630), & segment_t(2633, 2634), & segment_t(2638, 2640), & segment_t(2642, 2648), & segment_t(2653, 2653), & segment_t(2655, 2661), & segment_t(2679, 2688), & segment_t(2692, 2692), & segment_t(2702, 2702), & segment_t(2706, 2706), & segment_t(2729, 2729), & segment_t(2737, 2737), & segment_t(2740, 2740), & segment_t(2746, 2747), & segment_t(2758, 2758), & segment_t(2762, 2762), & segment_t(2766, 2767), & segment_t(2769, 2783), & segment_t(2788, 2789), & segment_t(2802, 2808), & segment_t(2816, 2816), & segment_t(2820, 2820), & segment_t(2829, 2830), & segment_t(2833, 2834), & segment_t(2857, 2857), & segment_t(2865, 2865), & segment_t(2868, 2868), & segment_t(2874, 2875), & segment_t(2885, 2886), & segment_t(2889, 2890), & segment_t(2894, 2900), & segment_t(2904, 2907), & segment_t(2910, 2910), & segment_t(2916, 2917), & segment_t(2936, 2945), & segment_t(2948, 2948), & segment_t(2955, 2957), & segment_t(2961, 2961), & segment_t(2966, 2968), & segment_t(2971, 2971), & segment_t(2973, 2973), & segment_t(2976, 2978), & segment_t(2981, 2983), & segment_t(2987, 2989), & segment_t(3002, 3005), & segment_t(3011, 3013), & segment_t(3017, 3017), & segment_t(3022, 3023), & segment_t(3025, 3030), & segment_t(3032, 3045), & segment_t(3067, 3071), & segment_t(3085, 3085), & segment_t(3089, 3089), & segment_t(3113, 3113), & segment_t(3130, 3131), & segment_t(3141, 3141), & segment_t(3145, 3145), & segment_t(3150, 3156), & segment_t(3159, 3159), & segment_t(3163, 3163), & segment_t(3166, 3167), & segment_t(3172, 3173), & segment_t(3184, 3190), & segment_t(3213, 3213), & segment_t(3217, 3217), & segment_t(3241, 3241), & segment_t(3252, 3252), & segment_t(3258, 3259), & segment_t(3269, 3269), & segment_t(3273, 3273), & segment_t(3278, 3284), & segment_t(3287, 3291), & segment_t(3295, 3295), & segment_t(3300, 3301), & segment_t(3312, 3312), & segment_t(3316, 3327), & segment_t(3341, 3341), & segment_t(3345, 3345), & segment_t(3397, 3397), & segment_t(3401, 3401), & segment_t(3408, 3411), & segment_t(3428, 3429), & segment_t(3456, 3456), & segment_t(3460, 3460), & segment_t(3479, 3481), & segment_t(3506, 3506), & segment_t(3516, 3516), & segment_t(3518, 3519), & segment_t(3527, 3529), & segment_t(3531, 3534), & segment_t(3541, 3541), & segment_t(3543, 3543), & segment_t(3552, 3557), & segment_t(3568, 3569), & segment_t(3573, 3584), & segment_t(3643, 3646), & segment_t(3676, 3712), & segment_t(3715, 3715), & segment_t(3717, 3717), & segment_t(3723, 3723), & segment_t(3748, 3748), & segment_t(3750, 3750), & segment_t(3774, 3775), & segment_t(3781, 3781), & segment_t(3783, 3783), & segment_t(3791, 3791), & segment_t(3802, 3803), & segment_t(3808, 3839), & segment_t(3912, 3912), & segment_t(3949, 3952), & segment_t(3992, 3992), & segment_t(4029, 4029), & segment_t(4045, 4045), & segment_t(4059, 4095), & segment_t(4294, 4294), & segment_t(4296, 4300), & segment_t(4302, 4303), & segment_t(4681, 4681), & segment_t(4686, 4687), & segment_t(4695, 4695), & segment_t(4697, 4697), & segment_t(4702, 4703), & segment_t(4745, 4745), & segment_t(4750, 4751), & segment_t(4785, 4785), & segment_t(4790, 4791), & segment_t(4799, 4799), & segment_t(4801, 4801), & segment_t(4806, 4807), & segment_t(4823, 4823), & segment_t(4881, 4881), & segment_t(4886, 4887), & segment_t(4955, 4956), & segment_t(4989, 4991), & segment_t(5018, 5023), & segment_t(5110, 5111), & segment_t(5118, 5119), & segment_t(5789, 5791), & segment_t(5881, 5887), & segment_t(5910, 5918), & segment_t(5943, 5951), & segment_t(5972, 5983), & segment_t(5997, 5997), & segment_t(6001, 6001), & segment_t(6004, 6015), & segment_t(6110, 6111), & segment_t(6122, 6127), & segment_t(6138, 6143), & segment_t(6170, 6175), & segment_t(6265, 6271), & segment_t(6315, 6319), & segment_t(6390, 6399), & segment_t(6431, 6431), & segment_t(6444, 6447), & segment_t(6460, 6463), & segment_t(6465, 6467), & segment_t(6510, 6511), & segment_t(6517, 6527), & segment_t(6572, 6575), & segment_t(6602, 6607), & segment_t(6619, 6621), & segment_t(6684, 6685), & segment_t(6751, 6751), & segment_t(6781, 6782), & segment_t(6794, 6799), & segment_t(6810, 6815), & segment_t(6830, 6831), & segment_t(6878, 6879), & segment_t(6892, 6911), & segment_t(6989, 6989), & segment_t(7156, 7163), & segment_t(7224, 7226), & segment_t(7242, 7244), & segment_t(7307, 7311), & segment_t(7355, 7356), & segment_t(7368, 7375), & segment_t(7419, 7423), & segment_t(7958, 7959), & segment_t(7966, 7967), & segment_t(8006, 8007), & segment_t(8014, 8015), & segment_t(8024, 8024), & segment_t(8026, 8026), & segment_t(8028, 8028), & segment_t(8030, 8030), & segment_t(8062, 8063), & segment_t(8117, 8117), & segment_t(8133, 8133), & segment_t(8148, 8149), & segment_t(8156, 8156), & segment_t(8176, 8177), & segment_t(8181, 8181), & segment_t(8191, 8191), & segment_t(8293, 8293), & segment_t(8306, 8307), & segment_t(8335, 8335), & segment_t(8349, 8351), & segment_t(8386, 8399), & segment_t(8433, 8447), & segment_t(8588, 8591), & segment_t(9258, 9279), & segment_t(9291, 9311), & segment_t(11124, 11125), & segment_t(11508, 11512), & segment_t(11558, 11558), & segment_t(11560, 11564), & segment_t(11566, 11567), & segment_t(11624, 11630), & segment_t(11633, 11646), & segment_t(11671, 11679), & segment_t(11687, 11687), & segment_t(11695, 11695), & segment_t(11703, 11703), & segment_t(11711, 11711), & segment_t(11719, 11719), & segment_t(11727, 11727), & segment_t(11735, 11735), & segment_t(11743, 11743), & segment_t(11870, 11903), & segment_t(11930, 11930), & segment_t(12020, 12031), & segment_t(12246, 12271), & segment_t(12352, 12352), & segment_t(12439, 12440), & segment_t(12544, 12548), & segment_t(12592, 12592), & segment_t(12687, 12687), & segment_t(12774, 12782), & segment_t(12831, 12831), & segment_t(42125, 42127), & segment_t(42183, 42191), & segment_t(42540, 42559), & segment_t(42744, 42751), & segment_t(42973, 42992), & segment_t(43053, 43055), & segment_t(43066, 43071), & segment_t(43128, 43135), & segment_t(43206, 43213), & segment_t(43226, 43231), & segment_t(43348, 43358), & segment_t(43389, 43391), & segment_t(43470, 43470), & segment_t(43482, 43485), & segment_t(43519, 43519), & segment_t(43575, 43583), & segment_t(43598, 43599), & segment_t(43610, 43611), & segment_t(43715, 43738), & segment_t(43767, 43776), & segment_t(43783, 43784), & segment_t(43791, 43792), & segment_t(43799, 43807), & segment_t(43815, 43815), & segment_t(43823, 43823), & segment_t(43884, 43887), & segment_t(44014, 44015), & segment_t(44026, 44031), & segment_t(55204, 55215), & segment_t(55239, 55242), & segment_t(55292, 55295), & segment_t(64110, 64111), & segment_t(64218, 64255), & segment_t(64263, 64274), & segment_t(64280, 64284), & segment_t(64311, 64311), & segment_t(64317, 64317), & segment_t(64319, 64319), & segment_t(64322, 64322), & segment_t(64325, 64325), & segment_t(64976, 65007), & segment_t(65050, 65055), & segment_t(65107, 65107), & segment_t(65127, 65127), & segment_t(65132, 65135), & segment_t(65141, 65141), & segment_t(65277, 65278), & segment_t(65280, 65280), & segment_t(65471, 65473), & segment_t(65480, 65481), & segment_t(65488, 65489), & segment_t(65496, 65497), & segment_t(65501, 65503), & segment_t(65511, 65511), & segment_t(65519, 65528), & segment_t(65534, 65535), & segment_t(65548, 65548), & segment_t(65575, 65575), & segment_t(65595, 65595), & segment_t(65598, 65598), & segment_t(65614, 65615), & segment_t(65630, 65663), & segment_t(65787, 65791), & segment_t(65795, 65798), & segment_t(65844, 65846), & segment_t(65935, 65935), & segment_t(65949, 65951), & segment_t(65953, 65999), & segment_t(66046, 66175), & segment_t(66205, 66207), & segment_t(66257, 66271), & segment_t(66300, 66303), & segment_t(66340, 66348), & segment_t(66379, 66383), & segment_t(66427, 66431), & segment_t(66462, 66462), & segment_t(66500, 66503), & segment_t(66518, 66559), & segment_t(66718, 66719), & segment_t(66730, 66735), & segment_t(66772, 66775), & segment_t(66812, 66815), & segment_t(66856, 66863), & segment_t(66916, 66926), & segment_t(66939, 66939), & segment_t(66955, 66955), & segment_t(66963, 66963), & segment_t(66966, 66966), & segment_t(66978, 66978), & segment_t(66994, 66994), & segment_t(67002, 67002), & segment_t(67005, 67007), & segment_t(67060, 67071), & segment_t(67383, 67391), & segment_t(67414, 67423), & segment_t(67432, 67455), & segment_t(67462, 67462), & segment_t(67505, 67505), & segment_t(67515, 67583), & segment_t(67590, 67591), & segment_t(67593, 67593), & segment_t(67638, 67638), & segment_t(67641, 67643), & segment_t(67645, 67646), & segment_t(67670, 67670), & segment_t(67743, 67750), & segment_t(67760, 67807), & segment_t(67827, 67827), & segment_t(67830, 67834), & segment_t(67868, 67870), & segment_t(67898, 67902), & segment_t(67930, 67967), & segment_t(68024, 68027), & segment_t(68048, 68049), & segment_t(68100, 68100), & segment_t(68103, 68107), & segment_t(68116, 68116), & segment_t(68120, 68120), & segment_t(68150, 68151), & segment_t(68155, 68158), & segment_t(68169, 68175), & segment_t(68185, 68191), & segment_t(68256, 68287), & segment_t(68327, 68330), & segment_t(68343, 68351), & segment_t(68406, 68408), & segment_t(68438, 68439), & segment_t(68467, 68471), & segment_t(68498, 68504), & segment_t(68509, 68520), & segment_t(68528, 68607), & segment_t(68681, 68735), & segment_t(68787, 68799), & segment_t(68851, 68857), & segment_t(68904, 68911), & segment_t(68922, 68927), & segment_t(68966, 68968), & segment_t(68998, 69005), & segment_t(69008, 69215), & segment_t(69247, 69247), & segment_t(69290, 69290), & segment_t(69294, 69295), & segment_t(69298, 69313), & segment_t(69320, 69327), & segment_t(69337, 69369), & segment_t(69416, 69423), & segment_t(69466, 69487), & segment_t(69514, 69551), & segment_t(69580, 69599), & segment_t(69623, 69631), & segment_t(69710, 69713), & segment_t(69750, 69758), & segment_t(69827, 69836), & segment_t(69838, 69839), & segment_t(69865, 69871), & segment_t(69882, 69887), & segment_t(69941, 69941), & segment_t(69960, 69967), & segment_t(70007, 70015), & segment_t(70112, 70112), & segment_t(70133, 70143), & segment_t(70162, 70162), & segment_t(70210, 70271), & segment_t(70279, 70279), & segment_t(70281, 70281), & segment_t(70286, 70286), & segment_t(70302, 70302), & segment_t(70314, 70319), & segment_t(70379, 70383), & segment_t(70394, 70399), & segment_t(70404, 70404), & segment_t(70413, 70414), & segment_t(70417, 70418), & segment_t(70441, 70441), & segment_t(70449, 70449), & segment_t(70452, 70452), & segment_t(70458, 70458), & segment_t(70469, 70470), & segment_t(70473, 70474), & segment_t(70478, 70479), & segment_t(70481, 70486), & segment_t(70488, 70492), & segment_t(70500, 70501), & segment_t(70509, 70511), & segment_t(70517, 70527), & segment_t(70538, 70538), & segment_t(70540, 70541), & segment_t(70543, 70543), & segment_t(70582, 70582), & segment_t(70593, 70593), & segment_t(70595, 70596), & segment_t(70598, 70598), & segment_t(70603, 70603), & segment_t(70614, 70614), & segment_t(70617, 70624), & segment_t(70627, 70655), & segment_t(70748, 70748), & segment_t(70754, 70783), & segment_t(70856, 70863), & segment_t(70874, 71039), & segment_t(71094, 71095), & segment_t(71134, 71167), & segment_t(71237, 71247), & segment_t(71258, 71263), & segment_t(71277, 71295), & segment_t(71354, 71359), & segment_t(71370, 71375), & segment_t(71396, 71423), & segment_t(71451, 71452), & segment_t(71468, 71471), & segment_t(71495, 71679), & segment_t(71740, 71839), & segment_t(71923, 71934), & segment_t(71943, 71944), & segment_t(71946, 71947), & segment_t(71956, 71956), & segment_t(71959, 71959), & segment_t(71990, 71990), & segment_t(71993, 71994), & segment_t(72007, 72015), & segment_t(72026, 72095), & segment_t(72104, 72105), & segment_t(72152, 72153), & segment_t(72165, 72191), & segment_t(72264, 72271), & segment_t(72355, 72367), & segment_t(72441, 72447), & segment_t(72458, 72543), & segment_t(72552, 72639), & segment_t(72674, 72687), & segment_t(72698, 72703), & segment_t(72713, 72713), & segment_t(72759, 72759), & segment_t(72774, 72783), & segment_t(72813, 72815), & segment_t(72848, 72849), & segment_t(72872, 72872), & segment_t(72887, 72959), & segment_t(72967, 72967), & segment_t(72970, 72970), & segment_t(73015, 73017), & segment_t(73019, 73019), & segment_t(73022, 73022), & segment_t(73032, 73039), & segment_t(73050, 73055), & segment_t(73062, 73062), & segment_t(73065, 73065), & segment_t(73103, 73103), & segment_t(73106, 73106), & segment_t(73113, 73119), & segment_t(73130, 73135), & segment_t(73180, 73183), & segment_t(73194, 73439), & segment_t(73465, 73471), & segment_t(73489, 73489), & segment_t(73531, 73533), & segment_t(73563, 73647), & segment_t(73649, 73663), & segment_t(73714, 73726), & segment_t(74650, 74751), & segment_t(74863, 74863), & segment_t(74869, 74879), & segment_t(75076, 77711), & segment_t(77811, 77823), & segment_t(78934, 78943), & segment_t(82939, 82943), & segment_t(83527, 90367), & segment_t(90426, 92159), & segment_t(92729, 92735), & segment_t(92767, 92767), & segment_t(92778, 92781), & segment_t(92863, 92863), & segment_t(92874, 92879), & segment_t(92910, 92911), & segment_t(92918, 92927), & segment_t(92998, 93007), & segment_t(93018, 93018), & segment_t(93026, 93026), & segment_t(93048, 93052), & segment_t(93072, 93503), & segment_t(93562, 93759), & segment_t(93851, 93855), & segment_t(93881, 93882), & segment_t(93908, 93951), & segment_t(94027, 94030), & segment_t(94088, 94094), & segment_t(94112, 94175), & segment_t(94181, 94191), & segment_t(94199, 94207), & segment_t(101590, 101630), & segment_t(101663, 101759), & segment_t(101875, 110575), & segment_t(110580, 110580), & segment_t(110588, 110588), & segment_t(110591, 110591), & segment_t(110883, 110897), & segment_t(110899, 110927), & segment_t(110931, 110932), & segment_t(110934, 110947), & segment_t(110952, 110959), & segment_t(111356, 113663), & segment_t(113771, 113775), & segment_t(113789, 113791), & segment_t(113801, 113807), & segment_t(113818, 113819), & segment_t(113828, 117759), & segment_t(118013, 118015), & segment_t(118452, 118457), & segment_t(118481, 118495), & segment_t(118513, 118527), & segment_t(118574, 118575), & segment_t(118599, 118607), & segment_t(118724, 118783), & segment_t(119030, 119039), & segment_t(119079, 119080), & segment_t(119275, 119295), & segment_t(119366, 119487), & segment_t(119508, 119519), & segment_t(119540, 119551), & segment_t(119639, 119647), & segment_t(119673, 119807), & segment_t(119893, 119893), & segment_t(119965, 119965), & segment_t(119968, 119969), & segment_t(119971, 119972), & segment_t(119975, 119976), & segment_t(119981, 119981), & segment_t(119994, 119994), & segment_t(119996, 119996), & segment_t(120004, 120004), & segment_t(120070, 120070), & segment_t(120075, 120076), & segment_t(120085, 120085), & segment_t(120093, 120093), & segment_t(120122, 120122), & segment_t(120127, 120127), & segment_t(120133, 120133), & segment_t(120135, 120137), & segment_t(120145, 120145), & segment_t(120486, 120487), & segment_t(120780, 120781), & segment_t(121484, 121498), & segment_t(121504, 121504), & segment_t(121520, 122623), & segment_t(122655, 122660), & segment_t(122667, 122879), & segment_t(122887, 122887), & segment_t(122905, 122906), & segment_t(122914, 122914), & segment_t(122917, 122917), & segment_t(122923, 122927), & segment_t(122990, 123022), & segment_t(123024, 123135), & segment_t(123181, 123183), & segment_t(123198, 123199), & segment_t(123210, 123213), & segment_t(123216, 123535), & segment_t(123567, 123583), & segment_t(123642, 123646), & segment_t(123648, 124111), & segment_t(124154, 124367), & segment_t(124411, 124414), & segment_t(124416, 124607), & segment_t(124639, 124639), & segment_t(124662, 124669), & segment_t(124672, 124895), & segment_t(124903, 124903), & segment_t(124908, 124908), & segment_t(124911, 124911), & segment_t(124927, 124927), & segment_t(125125, 125126), & segment_t(125143, 125183), & segment_t(125260, 125263), & segment_t(125274, 125277), & segment_t(125280, 126064), & segment_t(126133, 126208), & segment_t(126270, 126463), & segment_t(126468, 126468), & segment_t(126496, 126496), & segment_t(126499, 126499), & segment_t(126501, 126502), & segment_t(126504, 126504), & segment_t(126515, 126515), & segment_t(126520, 126520), & segment_t(126522, 126522), & segment_t(126524, 126529), & segment_t(126531, 126534), & segment_t(126536, 126536), & segment_t(126538, 126538), & segment_t(126540, 126540), & segment_t(126544, 126544), & segment_t(126547, 126547), & segment_t(126549, 126550), & segment_t(126552, 126552), & segment_t(126554, 126554), & segment_t(126556, 126556), & segment_t(126558, 126558), & segment_t(126560, 126560), & segment_t(126563, 126563), & segment_t(126565, 126566), & segment_t(126571, 126571), & segment_t(126579, 126579), & segment_t(126584, 126584), & segment_t(126589, 126589), & segment_t(126591, 126591), & segment_t(126602, 126602), & segment_t(126620, 126624), & segment_t(126628, 126628), & segment_t(126634, 126634), & segment_t(126652, 126703), & segment_t(126706, 126975), & segment_t(127020, 127023), & segment_t(127124, 127135), & segment_t(127151, 127152), & segment_t(127168, 127168), & segment_t(127184, 127184), & segment_t(127222, 127231), & segment_t(127406, 127461), & segment_t(127491, 127503), & segment_t(127548, 127551), & segment_t(127561, 127567), & segment_t(127570, 127583), & segment_t(127590, 127743), & segment_t(128729, 128731), & segment_t(128749, 128751), & segment_t(128765, 128767), & segment_t(128986, 128991), & segment_t(129004, 129007), & segment_t(129009, 129023), & segment_t(129036, 129039), & segment_t(129096, 129103), & segment_t(129114, 129119), & segment_t(129160, 129167), & segment_t(129198, 129199), & segment_t(129212, 129215), & segment_t(129218, 129231), & segment_t(129241, 129279), & segment_t(129624, 129631), & segment_t(129646, 129647), & segment_t(129661, 129663), & segment_t(129675, 129677), & segment_t(129735, 129735), & segment_t(129737, 129740), & segment_t(129757, 129758), & segment_t(129771, 129774), & segment_t(129785, 129791), & segment_t(129939, 129939), & segment_t(130043, 131071), & segment_t(173792, 173823), & segment_t(178206, 178207), & segment_t(183982, 183983), & segment_t(191457, 191471), & segment_t(192094, 194559), & segment_t(195102, 196607), & segment_t(201547, 201551), & segment_t(210042, 917504), & segment_t(917506, 917535), & segment_t(917632, 917759), & segment_t(918000, 983039), & segment_t(1048574, 1048575), & segment_t(1114110, 1114111) & ] type(segment_t), parameter :: unicode_gc_Lu(*) = & [ & segment_t(65, 90), & segment_t(192, 214), & segment_t(216, 222), & segment_t(256, 256), & segment_t(258, 258), & segment_t(260, 260), & segment_t(262, 262), & segment_t(264, 264), & segment_t(266, 266), & segment_t(268, 268), & segment_t(270, 270), & segment_t(272, 272), & segment_t(274, 274), & segment_t(276, 276), & segment_t(278, 278), & segment_t(280, 280), & segment_t(282, 282), & segment_t(284, 284), & segment_t(286, 286), & segment_t(288, 288), & segment_t(290, 290), & segment_t(292, 292), & segment_t(294, 294), & segment_t(296, 296), & segment_t(298, 298), & segment_t(300, 300), & segment_t(302, 302), & segment_t(304, 304), & segment_t(306, 306), & segment_t(308, 308), & segment_t(310, 310), & segment_t(313, 313), & segment_t(315, 315), & segment_t(317, 317), & segment_t(319, 319), & segment_t(321, 321), & segment_t(323, 323), & segment_t(325, 325), & segment_t(327, 327), & segment_t(330, 330), & segment_t(332, 332), & segment_t(334, 334), & segment_t(336, 336), & segment_t(338, 338), & segment_t(340, 340), & segment_t(342, 342), & segment_t(344, 344), & segment_t(346, 346), & segment_t(348, 348), & segment_t(350, 350), & segment_t(352, 352), & segment_t(354, 354), & segment_t(356, 356), & segment_t(358, 358), & segment_t(360, 360), & segment_t(362, 362), & segment_t(364, 364), & segment_t(366, 366), & segment_t(368, 368), & segment_t(370, 370), & segment_t(372, 372), & segment_t(374, 374), & segment_t(376, 377), & segment_t(379, 379), & segment_t(381, 381), & segment_t(385, 386), & segment_t(388, 388), & segment_t(390, 391), & segment_t(393, 395), & segment_t(398, 401), & segment_t(403, 404), & segment_t(406, 408), & segment_t(412, 413), & segment_t(415, 416), & segment_t(418, 418), & segment_t(420, 420), & segment_t(422, 423), & segment_t(425, 425), & segment_t(428, 428), & segment_t(430, 431), & segment_t(433, 435), & segment_t(437, 437), & segment_t(439, 440), & segment_t(444, 444), & segment_t(452, 452), & segment_t(455, 455), & segment_t(458, 458), & segment_t(461, 461), & segment_t(463, 463), & segment_t(465, 465), & segment_t(467, 467), & segment_t(469, 469), & segment_t(471, 471), & segment_t(473, 473), & segment_t(475, 475), & segment_t(478, 478), & segment_t(480, 480), & segment_t(482, 482), & segment_t(484, 484), & segment_t(486, 486), & segment_t(488, 488), & segment_t(490, 490), & segment_t(492, 492), & segment_t(494, 494), & segment_t(497, 497), & segment_t(500, 500), & segment_t(502, 504), & segment_t(506, 506), & segment_t(508, 508), & segment_t(510, 510), & segment_t(512, 512), & segment_t(514, 514), & segment_t(516, 516), & segment_t(518, 518), & segment_t(520, 520), & segment_t(522, 522), & segment_t(524, 524), & segment_t(526, 526), & segment_t(528, 528), & segment_t(530, 530), & segment_t(532, 532), & segment_t(534, 534), & segment_t(536, 536), & segment_t(538, 538), & segment_t(540, 540), & segment_t(542, 542), & segment_t(544, 544), & segment_t(546, 546), & segment_t(548, 548), & segment_t(550, 550), & segment_t(552, 552), & segment_t(554, 554), & segment_t(556, 556), & segment_t(558, 558), & segment_t(560, 560), & segment_t(562, 562), & segment_t(570, 571), & segment_t(573, 574), & segment_t(577, 577), & segment_t(579, 582), & segment_t(584, 584), & segment_t(586, 586), & segment_t(588, 588), & segment_t(590, 590), & segment_t(880, 880), & segment_t(882, 882), & segment_t(886, 886), & segment_t(895, 895), & segment_t(902, 902), & segment_t(904, 906), & segment_t(908, 908), & segment_t(910, 911), & segment_t(913, 929), & segment_t(931, 939), & segment_t(975, 975), & segment_t(978, 980), & segment_t(984, 984), & segment_t(986, 986), & segment_t(988, 988), & segment_t(990, 990), & segment_t(992, 992), & segment_t(994, 994), & segment_t(996, 996), & segment_t(998, 998), & segment_t(1000, 1000), & segment_t(1002, 1002), & segment_t(1004, 1004), & segment_t(1006, 1006), & segment_t(1012, 1012), & segment_t(1015, 1015), & segment_t(1017, 1018), & segment_t(1021, 1071), & segment_t(1120, 1120), & segment_t(1122, 1122), & segment_t(1124, 1124), & segment_t(1126, 1126), & segment_t(1128, 1128), & segment_t(1130, 1130), & segment_t(1132, 1132), & segment_t(1134, 1134), & segment_t(1136, 1136), & segment_t(1138, 1138), & segment_t(1140, 1140), & segment_t(1142, 1142), & segment_t(1144, 1144), & segment_t(1146, 1146), & segment_t(1148, 1148), & segment_t(1150, 1150), & segment_t(1152, 1152), & segment_t(1162, 1162), & segment_t(1164, 1164), & segment_t(1166, 1166), & segment_t(1168, 1168), & segment_t(1170, 1170), & segment_t(1172, 1172), & segment_t(1174, 1174), & segment_t(1176, 1176), & segment_t(1178, 1178), & segment_t(1180, 1180), & segment_t(1182, 1182), & segment_t(1184, 1184), & segment_t(1186, 1186), & segment_t(1188, 1188), & segment_t(1190, 1190), & segment_t(1192, 1192), & segment_t(1194, 1194), & segment_t(1196, 1196), & segment_t(1198, 1198), & segment_t(1200, 1200), & segment_t(1202, 1202), & segment_t(1204, 1204), & segment_t(1206, 1206), & segment_t(1208, 1208), & segment_t(1210, 1210), & segment_t(1212, 1212), & segment_t(1214, 1214), & segment_t(1216, 1217), & segment_t(1219, 1219), & segment_t(1221, 1221), & segment_t(1223, 1223), & segment_t(1225, 1225), & segment_t(1227, 1227), & segment_t(1229, 1229), & segment_t(1232, 1232), & segment_t(1234, 1234), & segment_t(1236, 1236), & segment_t(1238, 1238), & segment_t(1240, 1240), & segment_t(1242, 1242), & segment_t(1244, 1244), & segment_t(1246, 1246), & segment_t(1248, 1248), & segment_t(1250, 1250), & segment_t(1252, 1252), & segment_t(1254, 1254), & segment_t(1256, 1256), & segment_t(1258, 1258), & segment_t(1260, 1260), & segment_t(1262, 1262), & segment_t(1264, 1264), & segment_t(1266, 1266), & segment_t(1268, 1268), & segment_t(1270, 1270), & segment_t(1272, 1272), & segment_t(1274, 1274), & segment_t(1276, 1276), & segment_t(1278, 1278), & segment_t(1280, 1280), & segment_t(1282, 1282), & segment_t(1284, 1284), & segment_t(1286, 1286), & segment_t(1288, 1288), & segment_t(1290, 1290), & segment_t(1292, 1292), & segment_t(1294, 1294), & segment_t(1296, 1296), & segment_t(1298, 1298), & segment_t(1300, 1300), & segment_t(1302, 1302), & segment_t(1304, 1304), & segment_t(1306, 1306), & segment_t(1308, 1308), & segment_t(1310, 1310), & segment_t(1312, 1312), & segment_t(1314, 1314), & segment_t(1316, 1316), & segment_t(1318, 1318), & segment_t(1320, 1320), & segment_t(1322, 1322), & segment_t(1324, 1324), & segment_t(1326, 1326), & segment_t(1329, 1366), & segment_t(4256, 4293), & segment_t(4295, 4295), & segment_t(4301, 4301), & segment_t(5024, 5109), & segment_t(7305, 7305), & segment_t(7312, 7354), & segment_t(7357, 7359), & segment_t(7680, 7680), & segment_t(7682, 7682), & segment_t(7684, 7684), & segment_t(7686, 7686), & segment_t(7688, 7688), & segment_t(7690, 7690), & segment_t(7692, 7692), & segment_t(7694, 7694), & segment_t(7696, 7696), & segment_t(7698, 7698), & segment_t(7700, 7700), & segment_t(7702, 7702), & segment_t(7704, 7704), & segment_t(7706, 7706), & segment_t(7708, 7708), & segment_t(7710, 7710), & segment_t(7712, 7712), & segment_t(7714, 7714), & segment_t(7716, 7716), & segment_t(7718, 7718), & segment_t(7720, 7720), & segment_t(7722, 7722), & segment_t(7724, 7724), & segment_t(7726, 7726), & segment_t(7728, 7728), & segment_t(7730, 7730), & segment_t(7732, 7732), & segment_t(7734, 7734), & segment_t(7736, 7736), & segment_t(7738, 7738), & segment_t(7740, 7740), & segment_t(7742, 7742), & segment_t(7744, 7744), & segment_t(7746, 7746), & segment_t(7748, 7748), & segment_t(7750, 7750), & segment_t(7752, 7752), & segment_t(7754, 7754), & segment_t(7756, 7756), & segment_t(7758, 7758), & segment_t(7760, 7760), & segment_t(7762, 7762), & segment_t(7764, 7764), & segment_t(7766, 7766), & segment_t(7768, 7768), & segment_t(7770, 7770), & segment_t(7772, 7772), & segment_t(7774, 7774), & segment_t(7776, 7776), & segment_t(7778, 7778), & segment_t(7780, 7780), & segment_t(7782, 7782), & segment_t(7784, 7784), & segment_t(7786, 7786), & segment_t(7788, 7788), & segment_t(7790, 7790), & segment_t(7792, 7792), & segment_t(7794, 7794), & segment_t(7796, 7796), & segment_t(7798, 7798), & segment_t(7800, 7800), & segment_t(7802, 7802), & segment_t(7804, 7804), & segment_t(7806, 7806), & segment_t(7808, 7808), & segment_t(7810, 7810), & segment_t(7812, 7812), & segment_t(7814, 7814), & segment_t(7816, 7816), & segment_t(7818, 7818), & segment_t(7820, 7820), & segment_t(7822, 7822), & segment_t(7824, 7824), & segment_t(7826, 7826), & segment_t(7828, 7828), & segment_t(7838, 7838), & segment_t(7840, 7840), & segment_t(7842, 7842), & segment_t(7844, 7844), & segment_t(7846, 7846), & segment_t(7848, 7848), & segment_t(7850, 7850), & segment_t(7852, 7852), & segment_t(7854, 7854), & segment_t(7856, 7856), & segment_t(7858, 7858), & segment_t(7860, 7860), & segment_t(7862, 7862), & segment_t(7864, 7864), & segment_t(7866, 7866), & segment_t(7868, 7868), & segment_t(7870, 7870), & segment_t(7872, 7872), & segment_t(7874, 7874), & segment_t(7876, 7876), & segment_t(7878, 7878), & segment_t(7880, 7880), & segment_t(7882, 7882), & segment_t(7884, 7884), & segment_t(7886, 7886), & segment_t(7888, 7888), & segment_t(7890, 7890), & segment_t(7892, 7892), & segment_t(7894, 7894), & segment_t(7896, 7896), & segment_t(7898, 7898), & segment_t(7900, 7900), & segment_t(7902, 7902), & segment_t(7904, 7904), & segment_t(7906, 7906), & segment_t(7908, 7908), & segment_t(7910, 7910), & segment_t(7912, 7912), & segment_t(7914, 7914), & segment_t(7916, 7916), & segment_t(7918, 7918), & segment_t(7920, 7920), & segment_t(7922, 7922), & segment_t(7924, 7924), & segment_t(7926, 7926), & segment_t(7928, 7928), & segment_t(7930, 7930), & segment_t(7932, 7932), & segment_t(7934, 7934), & segment_t(7944, 7951), & segment_t(7960, 7965), & segment_t(7976, 7983), & segment_t(7992, 7999), & segment_t(8008, 8013), & segment_t(8025, 8025), & segment_t(8027, 8027), & segment_t(8029, 8029), & segment_t(8031, 8031), & segment_t(8040, 8047), & segment_t(8120, 8123), & segment_t(8136, 8139), & segment_t(8152, 8155), & segment_t(8168, 8172), & segment_t(8184, 8187), & segment_t(8450, 8450), & segment_t(8455, 8455), & segment_t(8459, 8461), & segment_t(8464, 8466), & segment_t(8469, 8469), & segment_t(8473, 8477), & segment_t(8484, 8484), & segment_t(8486, 8486), & segment_t(8488, 8488), & segment_t(8490, 8493), & segment_t(8496, 8499), & segment_t(8510, 8511), & segment_t(8517, 8517), & segment_t(8579, 8579), & segment_t(11264, 11311), & segment_t(11360, 11360), & segment_t(11362, 11364), & segment_t(11367, 11367), & segment_t(11369, 11369), & segment_t(11371, 11371), & segment_t(11373, 11376), & segment_t(11378, 11378), & segment_t(11381, 11381), & segment_t(11390, 11392), & segment_t(11394, 11394), & segment_t(11396, 11396), & segment_t(11398, 11398), & segment_t(11400, 11400), & segment_t(11402, 11402), & segment_t(11404, 11404), & segment_t(11406, 11406), & segment_t(11408, 11408), & segment_t(11410, 11410), & segment_t(11412, 11412), & segment_t(11414, 11414), & segment_t(11416, 11416), & segment_t(11418, 11418), & segment_t(11420, 11420), & segment_t(11422, 11422), & segment_t(11424, 11424), & segment_t(11426, 11426), & segment_t(11428, 11428), & segment_t(11430, 11430), & segment_t(11432, 11432), & segment_t(11434, 11434), & segment_t(11436, 11436), & segment_t(11438, 11438), & segment_t(11440, 11440), & segment_t(11442, 11442), & segment_t(11444, 11444), & segment_t(11446, 11446), & segment_t(11448, 11448), & segment_t(11450, 11450), & segment_t(11452, 11452), & segment_t(11454, 11454), & segment_t(11456, 11456), & segment_t(11458, 11458), & segment_t(11460, 11460), & segment_t(11462, 11462), & segment_t(11464, 11464), & segment_t(11466, 11466), & segment_t(11468, 11468), & segment_t(11470, 11470), & segment_t(11472, 11472), & segment_t(11474, 11474), & segment_t(11476, 11476), & segment_t(11478, 11478), & segment_t(11480, 11480), & segment_t(11482, 11482), & segment_t(11484, 11484), & segment_t(11486, 11486), & segment_t(11488, 11488), & segment_t(11490, 11490), & segment_t(11499, 11499), & segment_t(11501, 11501), & segment_t(11506, 11506), & segment_t(42560, 42560), & segment_t(42562, 42562), & segment_t(42564, 42564), & segment_t(42566, 42566), & segment_t(42568, 42568), & segment_t(42570, 42570), & segment_t(42572, 42572), & segment_t(42574, 42574), & segment_t(42576, 42576), & segment_t(42578, 42578), & segment_t(42580, 42580), & segment_t(42582, 42582), & segment_t(42584, 42584), & segment_t(42586, 42586), & segment_t(42588, 42588), & segment_t(42590, 42590), & segment_t(42592, 42592), & segment_t(42594, 42594), & segment_t(42596, 42596), & segment_t(42598, 42598), & segment_t(42600, 42600), & segment_t(42602, 42602), & segment_t(42604, 42604), & segment_t(42624, 42624), & segment_t(42626, 42626), & segment_t(42628, 42628), & segment_t(42630, 42630), & segment_t(42632, 42632), & segment_t(42634, 42634), & segment_t(42636, 42636), & segment_t(42638, 42638), & segment_t(42640, 42640), & segment_t(42642, 42642), & segment_t(42644, 42644), & segment_t(42646, 42646), & segment_t(42648, 42648), & segment_t(42650, 42650), & segment_t(42786, 42786), & segment_t(42788, 42788), & segment_t(42790, 42790), & segment_t(42792, 42792), & segment_t(42794, 42794), & segment_t(42796, 42796), & segment_t(42798, 42798), & segment_t(42802, 42802), & segment_t(42804, 42804), & segment_t(42806, 42806), & segment_t(42808, 42808), & segment_t(42810, 42810), & segment_t(42812, 42812), & segment_t(42814, 42814), & segment_t(42816, 42816), & segment_t(42818, 42818), & segment_t(42820, 42820), & segment_t(42822, 42822), & segment_t(42824, 42824), & segment_t(42826, 42826), & segment_t(42828, 42828), & segment_t(42830, 42830), & segment_t(42832, 42832), & segment_t(42834, 42834), & segment_t(42836, 42836), & segment_t(42838, 42838), & segment_t(42840, 42840), & segment_t(42842, 42842), & segment_t(42844, 42844), & segment_t(42846, 42846), & segment_t(42848, 42848), & segment_t(42850, 42850), & segment_t(42852, 42852), & segment_t(42854, 42854), & segment_t(42856, 42856), & segment_t(42858, 42858), & segment_t(42860, 42860), & segment_t(42862, 42862), & segment_t(42873, 42873), & segment_t(42875, 42875), & segment_t(42877, 42878), & segment_t(42880, 42880), & segment_t(42882, 42882), & segment_t(42884, 42884), & segment_t(42886, 42886), & segment_t(42891, 42891), & segment_t(42893, 42893), & segment_t(42896, 42896), & segment_t(42898, 42898), & segment_t(42902, 42902), & segment_t(42904, 42904), & segment_t(42906, 42906), & segment_t(42908, 42908), & segment_t(42910, 42910), & segment_t(42912, 42912), & segment_t(42914, 42914), & segment_t(42916, 42916), & segment_t(42918, 42918), & segment_t(42920, 42920), & segment_t(42922, 42926), & segment_t(42928, 42932), & segment_t(42934, 42934), & segment_t(42936, 42936), & segment_t(42938, 42938), & segment_t(42940, 42940), & segment_t(42942, 42942), & segment_t(42944, 42944), & segment_t(42946, 42946), & segment_t(42948, 42951), & segment_t(42953, 42953), & segment_t(42955, 42956), & segment_t(42958, 42958), & segment_t(42960, 42960), & segment_t(42962, 42962), & segment_t(42964, 42964), & segment_t(42966, 42966), & segment_t(42968, 42968), & segment_t(42970, 42970), & segment_t(42972, 42972), & segment_t(42997, 42997), & segment_t(65313, 65338), & segment_t(66560, 66599), & segment_t(66736, 66771), & segment_t(66928, 66938), & segment_t(66940, 66954), & segment_t(66956, 66962), & segment_t(66964, 66965), & segment_t(68736, 68786), & segment_t(68944, 68965), & segment_t(71840, 71871), & segment_t(93760, 93791), & segment_t(93856, 93880), & segment_t(119808, 119833), & segment_t(119860, 119885), & segment_t(119912, 119937), & segment_t(119964, 119964), & segment_t(119966, 119967), & segment_t(119970, 119970), & segment_t(119973, 119974), & segment_t(119977, 119980), & segment_t(119982, 119989), & segment_t(120016, 120041), & segment_t(120068, 120069), & segment_t(120071, 120074), & segment_t(120077, 120084), & segment_t(120086, 120092), & segment_t(120120, 120121), & segment_t(120123, 120126), & segment_t(120128, 120132), & segment_t(120134, 120134), & segment_t(120138, 120144), & segment_t(120172, 120197), & segment_t(120224, 120249), & segment_t(120276, 120301), & segment_t(120328, 120353), & segment_t(120380, 120405), & segment_t(120432, 120457), & segment_t(120488, 120512), & segment_t(120546, 120570), & segment_t(120604, 120628), & segment_t(120662, 120686), & segment_t(120720, 120744), & segment_t(120778, 120778), & segment_t(125184, 125217) & ] type(segment_t), parameter :: unicode_gc_Ll(*) = & [ & segment_t(97, 122), & segment_t(181, 181), & segment_t(223, 246), & segment_t(248, 255), & segment_t(257, 257), & segment_t(259, 259), & segment_t(261, 261), & segment_t(263, 263), & segment_t(265, 265), & segment_t(267, 267), & segment_t(269, 269), & segment_t(271, 271), & segment_t(273, 273), & segment_t(275, 275), & segment_t(277, 277), & segment_t(279, 279), & segment_t(281, 281), & segment_t(283, 283), & segment_t(285, 285), & segment_t(287, 287), & segment_t(289, 289), & segment_t(291, 291), & segment_t(293, 293), & segment_t(295, 295), & segment_t(297, 297), & segment_t(299, 299), & segment_t(301, 301), & segment_t(303, 303), & segment_t(305, 305), & segment_t(307, 307), & segment_t(309, 309), & segment_t(311, 312), & segment_t(314, 314), & segment_t(316, 316), & segment_t(318, 318), & segment_t(320, 320), & segment_t(322, 322), & segment_t(324, 324), & segment_t(326, 326), & segment_t(328, 329), & segment_t(331, 331), & segment_t(333, 333), & segment_t(335, 335), & segment_t(337, 337), & segment_t(339, 339), & segment_t(341, 341), & segment_t(343, 343), & segment_t(345, 345), & segment_t(347, 347), & segment_t(349, 349), & segment_t(351, 351), & segment_t(353, 353), & segment_t(355, 355), & segment_t(357, 357), & segment_t(359, 359), & segment_t(361, 361), & segment_t(363, 363), & segment_t(365, 365), & segment_t(367, 367), & segment_t(369, 369), & segment_t(371, 371), & segment_t(373, 373), & segment_t(375, 375), & segment_t(378, 378), & segment_t(380, 380), & segment_t(382, 384), & segment_t(387, 387), & segment_t(389, 389), & segment_t(392, 392), & segment_t(396, 397), & segment_t(402, 402), & segment_t(405, 405), & segment_t(409, 411), & segment_t(414, 414), & segment_t(417, 417), & segment_t(419, 419), & segment_t(421, 421), & segment_t(424, 424), & segment_t(426, 427), & segment_t(429, 429), & segment_t(432, 432), & segment_t(436, 436), & segment_t(438, 438), & segment_t(441, 442), & segment_t(445, 447), & segment_t(454, 454), & segment_t(457, 457), & segment_t(460, 460), & segment_t(462, 462), & segment_t(464, 464), & segment_t(466, 466), & segment_t(468, 468), & segment_t(470, 470), & segment_t(472, 472), & segment_t(474, 474), & segment_t(476, 477), & segment_t(479, 479), & segment_t(481, 481), & segment_t(483, 483), & segment_t(485, 485), & segment_t(487, 487), & segment_t(489, 489), & segment_t(491, 491), & segment_t(493, 493), & segment_t(495, 496), & segment_t(499, 499), & segment_t(501, 501), & segment_t(505, 505), & segment_t(507, 507), & segment_t(509, 509), & segment_t(511, 511), & segment_t(513, 513), & segment_t(515, 515), & segment_t(517, 517), & segment_t(519, 519), & segment_t(521, 521), & segment_t(523, 523), & segment_t(525, 525), & segment_t(527, 527), & segment_t(529, 529), & segment_t(531, 531), & segment_t(533, 533), & segment_t(535, 535), & segment_t(537, 537), & segment_t(539, 539), & segment_t(541, 541), & segment_t(543, 543), & segment_t(545, 545), & segment_t(547, 547), & segment_t(549, 549), & segment_t(551, 551), & segment_t(553, 553), & segment_t(555, 555), & segment_t(557, 557), & segment_t(559, 559), & segment_t(561, 561), & segment_t(563, 569), & segment_t(572, 572), & segment_t(575, 576), & segment_t(578, 578), & segment_t(583, 583), & segment_t(585, 585), & segment_t(587, 587), & segment_t(589, 589), & segment_t(591, 659), & segment_t(662, 687), & segment_t(881, 881), & segment_t(883, 883), & segment_t(887, 887), & segment_t(891, 893), & segment_t(912, 912), & segment_t(940, 974), & segment_t(976, 977), & segment_t(981, 983), & segment_t(985, 985), & segment_t(987, 987), & segment_t(989, 989), & segment_t(991, 991), & segment_t(993, 993), & segment_t(995, 995), & segment_t(997, 997), & segment_t(999, 999), & segment_t(1001, 1001), & segment_t(1003, 1003), & segment_t(1005, 1005), & segment_t(1007, 1011), & segment_t(1013, 1013), & segment_t(1016, 1016), & segment_t(1019, 1020), & segment_t(1072, 1119), & segment_t(1121, 1121), & segment_t(1123, 1123), & segment_t(1125, 1125), & segment_t(1127, 1127), & segment_t(1129, 1129), & segment_t(1131, 1131), & segment_t(1133, 1133), & segment_t(1135, 1135), & segment_t(1137, 1137), & segment_t(1139, 1139), & segment_t(1141, 1141), & segment_t(1143, 1143), & segment_t(1145, 1145), & segment_t(1147, 1147), & segment_t(1149, 1149), & segment_t(1151, 1151), & segment_t(1153, 1153), & segment_t(1163, 1163), & segment_t(1165, 1165), & segment_t(1167, 1167), & segment_t(1169, 1169), & segment_t(1171, 1171), & segment_t(1173, 1173), & segment_t(1175, 1175), & segment_t(1177, 1177), & segment_t(1179, 1179), & segment_t(1181, 1181), & segment_t(1183, 1183), & segment_t(1185, 1185), & segment_t(1187, 1187), & segment_t(1189, 1189), & segment_t(1191, 1191), & segment_t(1193, 1193), & segment_t(1195, 1195), & segment_t(1197, 1197), & segment_t(1199, 1199), & segment_t(1201, 1201), & segment_t(1203, 1203), & segment_t(1205, 1205), & segment_t(1207, 1207), & segment_t(1209, 1209), & segment_t(1211, 1211), & segment_t(1213, 1213), & segment_t(1215, 1215), & segment_t(1218, 1218), & segment_t(1220, 1220), & segment_t(1222, 1222), & segment_t(1224, 1224), & segment_t(1226, 1226), & segment_t(1228, 1228), & segment_t(1230, 1231), & segment_t(1233, 1233), & segment_t(1235, 1235), & segment_t(1237, 1237), & segment_t(1239, 1239), & segment_t(1241, 1241), & segment_t(1243, 1243), & segment_t(1245, 1245), & segment_t(1247, 1247), & segment_t(1249, 1249), & segment_t(1251, 1251), & segment_t(1253, 1253), & segment_t(1255, 1255), & segment_t(1257, 1257), & segment_t(1259, 1259), & segment_t(1261, 1261), & segment_t(1263, 1263), & segment_t(1265, 1265), & segment_t(1267, 1267), & segment_t(1269, 1269), & segment_t(1271, 1271), & segment_t(1273, 1273), & segment_t(1275, 1275), & segment_t(1277, 1277), & segment_t(1279, 1279), & segment_t(1281, 1281), & segment_t(1283, 1283), & segment_t(1285, 1285), & segment_t(1287, 1287), & segment_t(1289, 1289), & segment_t(1291, 1291), & segment_t(1293, 1293), & segment_t(1295, 1295), & segment_t(1297, 1297), & segment_t(1299, 1299), & segment_t(1301, 1301), & segment_t(1303, 1303), & segment_t(1305, 1305), & segment_t(1307, 1307), & segment_t(1309, 1309), & segment_t(1311, 1311), & segment_t(1313, 1313), & segment_t(1315, 1315), & segment_t(1317, 1317), & segment_t(1319, 1319), & segment_t(1321, 1321), & segment_t(1323, 1323), & segment_t(1325, 1325), & segment_t(1327, 1327), & segment_t(1376, 1416), & segment_t(4304, 4346), & segment_t(4349, 4351), & segment_t(5112, 5117), & segment_t(7296, 7304), & segment_t(7306, 7306), & segment_t(7424, 7467), & segment_t(7531, 7543), & segment_t(7545, 7578), & segment_t(7681, 7681), & segment_t(7683, 7683), & segment_t(7685, 7685), & segment_t(7687, 7687), & segment_t(7689, 7689), & segment_t(7691, 7691), & segment_t(7693, 7693), & segment_t(7695, 7695), & segment_t(7697, 7697), & segment_t(7699, 7699), & segment_t(7701, 7701), & segment_t(7703, 7703), & segment_t(7705, 7705), & segment_t(7707, 7707), & segment_t(7709, 7709), & segment_t(7711, 7711), & segment_t(7713, 7713), & segment_t(7715, 7715), & segment_t(7717, 7717), & segment_t(7719, 7719), & segment_t(7721, 7721), & segment_t(7723, 7723), & segment_t(7725, 7725), & segment_t(7727, 7727), & segment_t(7729, 7729), & segment_t(7731, 7731), & segment_t(7733, 7733), & segment_t(7735, 7735), & segment_t(7737, 7737), & segment_t(7739, 7739), & segment_t(7741, 7741), & segment_t(7743, 7743), & segment_t(7745, 7745), & segment_t(7747, 7747), & segment_t(7749, 7749), & segment_t(7751, 7751), & segment_t(7753, 7753), & segment_t(7755, 7755), & segment_t(7757, 7757), & segment_t(7759, 7759), & segment_t(7761, 7761), & segment_t(7763, 7763), & segment_t(7765, 7765), & segment_t(7767, 7767), & segment_t(7769, 7769), & segment_t(7771, 7771), & segment_t(7773, 7773), & segment_t(7775, 7775), & segment_t(7777, 7777), & segment_t(7779, 7779), & segment_t(7781, 7781), & segment_t(7783, 7783), & segment_t(7785, 7785), & segment_t(7787, 7787), & segment_t(7789, 7789), & segment_t(7791, 7791), & segment_t(7793, 7793), & segment_t(7795, 7795), & segment_t(7797, 7797), & segment_t(7799, 7799), & segment_t(7801, 7801), & segment_t(7803, 7803), & segment_t(7805, 7805), & segment_t(7807, 7807), & segment_t(7809, 7809), & segment_t(7811, 7811), & segment_t(7813, 7813), & segment_t(7815, 7815), & segment_t(7817, 7817), & segment_t(7819, 7819), & segment_t(7821, 7821), & segment_t(7823, 7823), & segment_t(7825, 7825), & segment_t(7827, 7827), & segment_t(7829, 7837), & segment_t(7839, 7839), & segment_t(7841, 7841), & segment_t(7843, 7843), & segment_t(7845, 7845), & segment_t(7847, 7847), & segment_t(7849, 7849), & segment_t(7851, 7851), & segment_t(7853, 7853), & segment_t(7855, 7855), & segment_t(7857, 7857), & segment_t(7859, 7859), & segment_t(7861, 7861), & segment_t(7863, 7863), & segment_t(7865, 7865), & segment_t(7867, 7867), & segment_t(7869, 7869), & segment_t(7871, 7871), & segment_t(7873, 7873), & segment_t(7875, 7875), & segment_t(7877, 7877), & segment_t(7879, 7879), & segment_t(7881, 7881), & segment_t(7883, 7883), & segment_t(7885, 7885), & segment_t(7887, 7887), & segment_t(7889, 7889), & segment_t(7891, 7891), & segment_t(7893, 7893), & segment_t(7895, 7895), & segment_t(7897, 7897), & segment_t(7899, 7899), & segment_t(7901, 7901), & segment_t(7903, 7903), & segment_t(7905, 7905), & segment_t(7907, 7907), & segment_t(7909, 7909), & segment_t(7911, 7911), & segment_t(7913, 7913), & segment_t(7915, 7915), & segment_t(7917, 7917), & segment_t(7919, 7919), & segment_t(7921, 7921), & segment_t(7923, 7923), & segment_t(7925, 7925), & segment_t(7927, 7927), & segment_t(7929, 7929), & segment_t(7931, 7931), & segment_t(7933, 7933), & segment_t(7935, 7943), & segment_t(7952, 7957), & segment_t(7968, 7975), & segment_t(7984, 7991), & segment_t(8000, 8005), & segment_t(8016, 8023), & segment_t(8032, 8039), & segment_t(8048, 8061), & segment_t(8064, 8071), & segment_t(8080, 8087), & segment_t(8096, 8103), & segment_t(8112, 8116), & segment_t(8118, 8119), & segment_t(8126, 8126), & segment_t(8130, 8132), & segment_t(8134, 8135), & segment_t(8144, 8147), & segment_t(8150, 8151), & segment_t(8160, 8167), & segment_t(8178, 8180), & segment_t(8182, 8183), & segment_t(8458, 8458), & segment_t(8462, 8463), & segment_t(8467, 8467), & segment_t(8495, 8495), & segment_t(8500, 8500), & segment_t(8505, 8505), & segment_t(8508, 8509), & segment_t(8518, 8521), & segment_t(8526, 8526), & segment_t(8580, 8580), & segment_t(11312, 11359), & segment_t(11361, 11361), & segment_t(11365, 11366), & segment_t(11368, 11368), & segment_t(11370, 11370), & segment_t(11372, 11372), & segment_t(11377, 11377), & segment_t(11379, 11380), & segment_t(11382, 11387), & segment_t(11393, 11393), & segment_t(11395, 11395), & segment_t(11397, 11397), & segment_t(11399, 11399), & segment_t(11401, 11401), & segment_t(11403, 11403), & segment_t(11405, 11405), & segment_t(11407, 11407), & segment_t(11409, 11409), & segment_t(11411, 11411), & segment_t(11413, 11413), & segment_t(11415, 11415), & segment_t(11417, 11417), & segment_t(11419, 11419), & segment_t(11421, 11421), & segment_t(11423, 11423), & segment_t(11425, 11425), & segment_t(11427, 11427), & segment_t(11429, 11429), & segment_t(11431, 11431), & segment_t(11433, 11433), & segment_t(11435, 11435), & segment_t(11437, 11437), & segment_t(11439, 11439), & segment_t(11441, 11441), & segment_t(11443, 11443), & segment_t(11445, 11445), & segment_t(11447, 11447), & segment_t(11449, 11449), & segment_t(11451, 11451), & segment_t(11453, 11453), & segment_t(11455, 11455), & segment_t(11457, 11457), & segment_t(11459, 11459), & segment_t(11461, 11461), & segment_t(11463, 11463), & segment_t(11465, 11465), & segment_t(11467, 11467), & segment_t(11469, 11469), & segment_t(11471, 11471), & segment_t(11473, 11473), & segment_t(11475, 11475), & segment_t(11477, 11477), & segment_t(11479, 11479), & segment_t(11481, 11481), & segment_t(11483, 11483), & segment_t(11485, 11485), & segment_t(11487, 11487), & segment_t(11489, 11489), & segment_t(11491, 11492), & segment_t(11500, 11500), & segment_t(11502, 11502), & segment_t(11507, 11507), & segment_t(11520, 11557), & segment_t(11559, 11559), & segment_t(11565, 11565), & segment_t(42561, 42561), & segment_t(42563, 42563), & segment_t(42565, 42565), & segment_t(42567, 42567), & segment_t(42569, 42569), & segment_t(42571, 42571), & segment_t(42573, 42573), & segment_t(42575, 42575), & segment_t(42577, 42577), & segment_t(42579, 42579), & segment_t(42581, 42581), & segment_t(42583, 42583), & segment_t(42585, 42585), & segment_t(42587, 42587), & segment_t(42589, 42589), & segment_t(42591, 42591), & segment_t(42593, 42593), & segment_t(42595, 42595), & segment_t(42597, 42597), & segment_t(42599, 42599), & segment_t(42601, 42601), & segment_t(42603, 42603), & segment_t(42605, 42605), & segment_t(42625, 42625), & segment_t(42627, 42627), & segment_t(42629, 42629), & segment_t(42631, 42631), & segment_t(42633, 42633), & segment_t(42635, 42635), & segment_t(42637, 42637), & segment_t(42639, 42639), & segment_t(42641, 42641), & segment_t(42643, 42643), & segment_t(42645, 42645), & segment_t(42647, 42647), & segment_t(42649, 42649), & segment_t(42651, 42651), & segment_t(42787, 42787), & segment_t(42789, 42789), & segment_t(42791, 42791), & segment_t(42793, 42793), & segment_t(42795, 42795), & segment_t(42797, 42797), & segment_t(42799, 42801), & segment_t(42803, 42803), & segment_t(42805, 42805), & segment_t(42807, 42807), & segment_t(42809, 42809), & segment_t(42811, 42811), & segment_t(42813, 42813), & segment_t(42815, 42815), & segment_t(42817, 42817), & segment_t(42819, 42819), & segment_t(42821, 42821), & segment_t(42823, 42823), & segment_t(42825, 42825), & segment_t(42827, 42827), & segment_t(42829, 42829), & segment_t(42831, 42831), & segment_t(42833, 42833), & segment_t(42835, 42835), & segment_t(42837, 42837), & segment_t(42839, 42839), & segment_t(42841, 42841), & segment_t(42843, 42843), & segment_t(42845, 42845), & segment_t(42847, 42847), & segment_t(42849, 42849), & segment_t(42851, 42851), & segment_t(42853, 42853), & segment_t(42855, 42855), & segment_t(42857, 42857), & segment_t(42859, 42859), & segment_t(42861, 42861), & segment_t(42863, 42863), & segment_t(42865, 42872), & segment_t(42874, 42874), & segment_t(42876, 42876), & segment_t(42879, 42879), & segment_t(42881, 42881), & segment_t(42883, 42883), & segment_t(42885, 42885), & segment_t(42887, 42887), & segment_t(42892, 42892), & segment_t(42894, 42894), & segment_t(42897, 42897), & segment_t(42899, 42901), & segment_t(42903, 42903), & segment_t(42905, 42905), & segment_t(42907, 42907), & segment_t(42909, 42909), & segment_t(42911, 42911), & segment_t(42913, 42913), & segment_t(42915, 42915), & segment_t(42917, 42917), & segment_t(42919, 42919), & segment_t(42921, 42921), & segment_t(42927, 42927), & segment_t(42933, 42933), & segment_t(42935, 42935), & segment_t(42937, 42937), & segment_t(42939, 42939), & segment_t(42941, 42941), & segment_t(42943, 42943), & segment_t(42945, 42945), & segment_t(42947, 42947), & segment_t(42952, 42952), & segment_t(42954, 42954), & segment_t(42957, 42957), & segment_t(42959, 42959), & segment_t(42961, 42961), & segment_t(42963, 42963), & segment_t(42965, 42965), & segment_t(42967, 42967), & segment_t(42969, 42969), & segment_t(42971, 42971), & segment_t(42998, 42998), & segment_t(43002, 43002), & segment_t(43824, 43866), & segment_t(43872, 43880), & segment_t(43888, 43967), & segment_t(64256, 64262), & segment_t(64275, 64279), & segment_t(65345, 65370), & segment_t(66600, 66639), & segment_t(66776, 66811), & segment_t(66967, 66977), & segment_t(66979, 66993), & segment_t(66995, 67001), & segment_t(67003, 67004), & segment_t(68800, 68850), & segment_t(68976, 68997), & segment_t(71872, 71903), & segment_t(93792, 93823), & segment_t(93883, 93907), & segment_t(119834, 119859), & segment_t(119886, 119892), & segment_t(119894, 119911), & segment_t(119938, 119963), & segment_t(119990, 119993), & segment_t(119995, 119995), & segment_t(119997, 120003), & segment_t(120005, 120015), & segment_t(120042, 120067), & segment_t(120094, 120119), & segment_t(120146, 120171), & segment_t(120198, 120223), & segment_t(120250, 120275), & segment_t(120302, 120327), & segment_t(120354, 120379), & segment_t(120406, 120431), & segment_t(120458, 120485), & segment_t(120514, 120538), & segment_t(120540, 120545), & segment_t(120572, 120596), & segment_t(120598, 120603), & segment_t(120630, 120654), & segment_t(120656, 120661), & segment_t(120688, 120712), & segment_t(120714, 120719), & segment_t(120746, 120770), & segment_t(120772, 120777), & segment_t(120779, 120779), & segment_t(122624, 122633), & segment_t(122635, 122654), & segment_t(122661, 122666), & segment_t(125218, 125251) & ] type(segment_t), parameter :: unicode_gc_Lt(*) = & [ & segment_t(453, 453), & segment_t(456, 456), & segment_t(459, 459), & segment_t(498, 498), & segment_t(8072, 8079), & segment_t(8088, 8095), & segment_t(8104, 8111), & segment_t(8124, 8124), & segment_t(8140, 8140), & segment_t(8188, 8188) & ] type(segment_t), parameter :: unicode_gc_Lm(*) = & [ & segment_t(688, 705), & segment_t(710, 721), & segment_t(736, 740), & segment_t(748, 748), & segment_t(750, 750), & segment_t(884, 884), & segment_t(890, 890), & segment_t(1369, 1369), & segment_t(1600, 1600), & segment_t(1765, 1766), & segment_t(2036, 2037), & segment_t(2042, 2042), & segment_t(2074, 2074), & segment_t(2084, 2084), & segment_t(2088, 2088), & segment_t(2249, 2249), & segment_t(2417, 2417), & segment_t(3654, 3654), & segment_t(3782, 3782), & segment_t(4348, 4348), & segment_t(6103, 6103), & segment_t(6211, 6211), & segment_t(6823, 6823), & segment_t(7288, 7293), & segment_t(7468, 7530), & segment_t(7544, 7544), & segment_t(7579, 7615), & segment_t(8305, 8305), & segment_t(8319, 8319), & segment_t(8336, 8348), & segment_t(11388, 11389), & segment_t(11631, 11631), & segment_t(11823, 11823), & segment_t(12293, 12293), & segment_t(12337, 12341), & segment_t(12347, 12347), & segment_t(12445, 12446), & segment_t(12540, 12542), & segment_t(40981, 40981), & segment_t(42232, 42237), & segment_t(42508, 42508), & segment_t(42623, 42623), & segment_t(42652, 42653), & segment_t(42775, 42783), & segment_t(42864, 42864), & segment_t(42888, 42888), & segment_t(42993, 42996), & segment_t(43000, 43001), & segment_t(43471, 43471), & segment_t(43494, 43494), & segment_t(43632, 43632), & segment_t(43741, 43741), & segment_t(43763, 43764), & segment_t(43868, 43871), & segment_t(43881, 43881), & segment_t(65392, 65392), & segment_t(65438, 65439), & segment_t(67456, 67461), & segment_t(67463, 67504), & segment_t(67506, 67514), & segment_t(68942, 68942), & segment_t(68975, 68975), & segment_t(69317, 69317), & segment_t(73177, 73177), & segment_t(92992, 92995), & segment_t(93504, 93506), & segment_t(93547, 93548), & segment_t(94099, 94111), & segment_t(94176, 94177), & segment_t(94179, 94179), & segment_t(94194, 94195), & segment_t(110576, 110579), & segment_t(110581, 110587), & segment_t(110589, 110590), & segment_t(122928, 122989), & segment_t(123191, 123197), & segment_t(124139, 124139), & segment_t(124671, 124671), & segment_t(125259, 125259) & ] type(segment_t), parameter :: unicode_gc_Lo(*) = & [ & segment_t(170, 170), & segment_t(186, 186), & segment_t(443, 443), & segment_t(448, 451), & segment_t(660, 661), & segment_t(1488, 1514), & segment_t(1519, 1522), & segment_t(1568, 1599), & segment_t(1601, 1610), & segment_t(1646, 1647), & segment_t(1649, 1747), & segment_t(1749, 1749), & segment_t(1774, 1775), & segment_t(1786, 1788), & segment_t(1791, 1791), & segment_t(1808, 1808), & segment_t(1810, 1839), & segment_t(1869, 1957), & segment_t(1969, 1969), & segment_t(1994, 2026), & segment_t(2048, 2069), & segment_t(2112, 2136), & segment_t(2144, 2154), & segment_t(2160, 2183), & segment_t(2185, 2191), & segment_t(2208, 2248), & segment_t(2308, 2361), & segment_t(2365, 2365), & segment_t(2384, 2384), & segment_t(2392, 2401), & segment_t(2418, 2432), & segment_t(2437, 2444), & segment_t(2447, 2448), & segment_t(2451, 2472), & segment_t(2474, 2480), & segment_t(2482, 2482), & segment_t(2486, 2489), & segment_t(2493, 2493), & segment_t(2510, 2510), & segment_t(2524, 2525), & segment_t(2527, 2529), & segment_t(2544, 2545), & segment_t(2556, 2556), & segment_t(2565, 2570), & segment_t(2575, 2576), & segment_t(2579, 2600), & segment_t(2602, 2608), & segment_t(2610, 2611), & segment_t(2613, 2614), & segment_t(2616, 2617), & segment_t(2649, 2652), & segment_t(2654, 2654), & segment_t(2674, 2676), & segment_t(2693, 2701), & segment_t(2703, 2705), & segment_t(2707, 2728), & segment_t(2730, 2736), & segment_t(2738, 2739), & segment_t(2741, 2745), & segment_t(2749, 2749), & segment_t(2768, 2768), & segment_t(2784, 2785), & segment_t(2809, 2809), & segment_t(2821, 2828), & segment_t(2831, 2832), & segment_t(2835, 2856), & segment_t(2858, 2864), & segment_t(2866, 2867), & segment_t(2869, 2873), & segment_t(2877, 2877), & segment_t(2908, 2909), & segment_t(2911, 2913), & segment_t(2929, 2929), & segment_t(2947, 2947), & segment_t(2949, 2954), & segment_t(2958, 2960), & segment_t(2962, 2965), & segment_t(2969, 2970), & segment_t(2972, 2972), & segment_t(2974, 2975), & segment_t(2979, 2980), & segment_t(2984, 2986), & segment_t(2990, 3001), & segment_t(3024, 3024), & segment_t(3077, 3084), & segment_t(3086, 3088), & segment_t(3090, 3112), & segment_t(3114, 3129), & segment_t(3133, 3133), & segment_t(3160, 3162), & segment_t(3164, 3165), & segment_t(3168, 3169), & segment_t(3200, 3200), & segment_t(3205, 3212), & segment_t(3214, 3216), & segment_t(3218, 3240), & segment_t(3242, 3251), & segment_t(3253, 3257), & segment_t(3261, 3261), & segment_t(3292, 3294), & segment_t(3296, 3297), & segment_t(3313, 3314), & segment_t(3332, 3340), & segment_t(3342, 3344), & segment_t(3346, 3386), & segment_t(3389, 3389), & segment_t(3406, 3406), & segment_t(3412, 3414), & segment_t(3423, 3425), & segment_t(3450, 3455), & segment_t(3461, 3478), & segment_t(3482, 3505), & segment_t(3507, 3515), & segment_t(3517, 3517), & segment_t(3520, 3526), & segment_t(3585, 3632), & segment_t(3634, 3635), & segment_t(3648, 3653), & segment_t(3713, 3714), & segment_t(3716, 3716), & segment_t(3718, 3722), & segment_t(3724, 3747), & segment_t(3749, 3749), & segment_t(3751, 3760), & segment_t(3762, 3763), & segment_t(3773, 3773), & segment_t(3776, 3780), & segment_t(3804, 3807), & segment_t(3840, 3840), & segment_t(3904, 3911), & segment_t(3913, 3948), & segment_t(3976, 3980), & segment_t(4096, 4138), & segment_t(4159, 4159), & segment_t(4176, 4181), & segment_t(4186, 4189), & segment_t(4193, 4193), & segment_t(4197, 4198), & segment_t(4206, 4208), & segment_t(4213, 4225), & segment_t(4238, 4238), & segment_t(4352, 4680), & segment_t(4682, 4685), & segment_t(4688, 4694), & segment_t(4696, 4696), & segment_t(4698, 4701), & segment_t(4704, 4744), & segment_t(4746, 4749), & segment_t(4752, 4784), & segment_t(4786, 4789), & segment_t(4792, 4798), & segment_t(4800, 4800), & segment_t(4802, 4805), & segment_t(4808, 4822), & segment_t(4824, 4880), & segment_t(4882, 4885), & segment_t(4888, 4954), & segment_t(4992, 5007), & segment_t(5121, 5740), & segment_t(5743, 5759), & segment_t(5761, 5786), & segment_t(5792, 5866), & segment_t(5873, 5880), & segment_t(5888, 5905), & segment_t(5919, 5937), & segment_t(5952, 5969), & segment_t(5984, 5996), & segment_t(5998, 6000), & segment_t(6016, 6067), & segment_t(6108, 6108), & segment_t(6176, 6210), & segment_t(6212, 6264), & segment_t(6272, 6276), & segment_t(6279, 6312), & segment_t(6314, 6314), & segment_t(6320, 6389), & segment_t(6400, 6430), & segment_t(6480, 6509), & segment_t(6512, 6516), & segment_t(6528, 6571), & segment_t(6576, 6601), & segment_t(6656, 6678), & segment_t(6688, 6740), & segment_t(6917, 6963), & segment_t(6981, 6988), & segment_t(7043, 7072), & segment_t(7086, 7087), & segment_t(7098, 7141), & segment_t(7168, 7203), & segment_t(7245, 7247), & segment_t(7258, 7287), & segment_t(7401, 7404), & segment_t(7406, 7411), & segment_t(7413, 7414), & segment_t(7418, 7418), & segment_t(8501, 8504), & segment_t(11568, 11623), & segment_t(11648, 11670), & segment_t(11680, 11686), & segment_t(11688, 11694), & segment_t(11696, 11702), & segment_t(11704, 11710), & segment_t(11712, 11718), & segment_t(11720, 11726), & segment_t(11728, 11734), & segment_t(11736, 11742), & segment_t(12294, 12294), & segment_t(12348, 12348), & segment_t(12353, 12438), & segment_t(12447, 12447), & segment_t(12449, 12538), & segment_t(12543, 12543), & segment_t(12549, 12591), & segment_t(12593, 12686), & segment_t(12704, 12735), & segment_t(12784, 12799), & segment_t(13312, 19903), & segment_t(19968, 40980), & segment_t(40982, 42124), & segment_t(42192, 42231), & segment_t(42240, 42507), & segment_t(42512, 42527), & segment_t(42538, 42539), & segment_t(42606, 42606), & segment_t(42656, 42725), & segment_t(42895, 42895), & segment_t(42999, 42999), & segment_t(43003, 43009), & segment_t(43011, 43013), & segment_t(43015, 43018), & segment_t(43020, 43042), & segment_t(43072, 43123), & segment_t(43138, 43187), & segment_t(43250, 43255), & segment_t(43259, 43259), & segment_t(43261, 43262), & segment_t(43274, 43301), & segment_t(43312, 43334), & segment_t(43360, 43388), & segment_t(43396, 43442), & segment_t(43488, 43492), & segment_t(43495, 43503), & segment_t(43514, 43518), & segment_t(43520, 43560), & segment_t(43584, 43586), & segment_t(43588, 43595), & segment_t(43616, 43631), & segment_t(43633, 43638), & segment_t(43642, 43642), & segment_t(43646, 43695), & segment_t(43697, 43697), & segment_t(43701, 43702), & segment_t(43705, 43709), & segment_t(43712, 43712), & segment_t(43714, 43714), & segment_t(43739, 43740), & segment_t(43744, 43754), & segment_t(43762, 43762), & segment_t(43777, 43782), & segment_t(43785, 43790), & segment_t(43793, 43798), & segment_t(43808, 43814), & segment_t(43816, 43822), & segment_t(43968, 44002), & segment_t(44032, 55203), & segment_t(55216, 55238), & segment_t(55243, 55291), & segment_t(63744, 64109), & segment_t(64112, 64217), & segment_t(64285, 64285), & segment_t(64287, 64296), & segment_t(64298, 64310), & segment_t(64312, 64316), & segment_t(64318, 64318), & segment_t(64320, 64321), & segment_t(64323, 64324), & segment_t(64326, 64433), & segment_t(64467, 64829), & segment_t(64848, 64911), & segment_t(64914, 64967), & segment_t(65008, 65019), & segment_t(65136, 65140), & segment_t(65142, 65276), & segment_t(65382, 65391), & segment_t(65393, 65437), & segment_t(65440, 65470), & segment_t(65474, 65479), & segment_t(65482, 65487), & segment_t(65490, 65495), & segment_t(65498, 65500), & segment_t(65536, 65547), & segment_t(65549, 65574), & segment_t(65576, 65594), & segment_t(65596, 65597), & segment_t(65599, 65613), & segment_t(65616, 65629), & segment_t(65664, 65786), & segment_t(66176, 66204), & segment_t(66208, 66256), & segment_t(66304, 66335), & segment_t(66349, 66368), & segment_t(66370, 66377), & segment_t(66384, 66421), & segment_t(66432, 66461), & segment_t(66464, 66499), & segment_t(66504, 66511), & segment_t(66640, 66717), & segment_t(66816, 66855), & segment_t(66864, 66915), & segment_t(67008, 67059), & segment_t(67072, 67382), & segment_t(67392, 67413), & segment_t(67424, 67431), & segment_t(67584, 67589), & segment_t(67592, 67592), & segment_t(67594, 67637), & segment_t(67639, 67640), & segment_t(67644, 67644), & segment_t(67647, 67669), & segment_t(67680, 67702), & segment_t(67712, 67742), & segment_t(67808, 67826), & segment_t(67828, 67829), & segment_t(67840, 67861), & segment_t(67872, 67897), & segment_t(67904, 67929), & segment_t(67968, 68023), & segment_t(68030, 68031), & segment_t(68096, 68096), & segment_t(68112, 68115), & segment_t(68117, 68119), & segment_t(68121, 68149), & segment_t(68192, 68220), & segment_t(68224, 68252), & segment_t(68288, 68295), & segment_t(68297, 68324), & segment_t(68352, 68405), & segment_t(68416, 68437), & segment_t(68448, 68466), & segment_t(68480, 68497), & segment_t(68608, 68680), & segment_t(68864, 68899), & segment_t(68938, 68941), & segment_t(68943, 68943), & segment_t(69248, 69289), & segment_t(69296, 69297), & segment_t(69314, 69316), & segment_t(69318, 69319), & segment_t(69376, 69404), & segment_t(69415, 69415), & segment_t(69424, 69445), & segment_t(69488, 69505), & segment_t(69552, 69572), & segment_t(69600, 69622), & segment_t(69635, 69687), & segment_t(69745, 69746), & segment_t(69749, 69749), & segment_t(69763, 69807), & segment_t(69840, 69864), & segment_t(69891, 69926), & segment_t(69956, 69956), & segment_t(69959, 69959), & segment_t(69968, 70002), & segment_t(70006, 70006), & segment_t(70019, 70066), & segment_t(70081, 70084), & segment_t(70106, 70106), & segment_t(70108, 70108), & segment_t(70144, 70161), & segment_t(70163, 70187), & segment_t(70207, 70208), & segment_t(70272, 70278), & segment_t(70280, 70280), & segment_t(70282, 70285), & segment_t(70287, 70301), & segment_t(70303, 70312), & segment_t(70320, 70366), & segment_t(70405, 70412), & segment_t(70415, 70416), & segment_t(70419, 70440), & segment_t(70442, 70448), & segment_t(70450, 70451), & segment_t(70453, 70457), & segment_t(70461, 70461), & segment_t(70480, 70480), & segment_t(70493, 70497), & segment_t(70528, 70537), & segment_t(70539, 70539), & segment_t(70542, 70542), & segment_t(70544, 70581), & segment_t(70583, 70583), & segment_t(70609, 70609), & segment_t(70611, 70611), & segment_t(70656, 70708), & segment_t(70727, 70730), & segment_t(70751, 70753), & segment_t(70784, 70831), & segment_t(70852, 70853), & segment_t(70855, 70855), & segment_t(71040, 71086), & segment_t(71128, 71131), & segment_t(71168, 71215), & segment_t(71236, 71236), & segment_t(71296, 71338), & segment_t(71352, 71352), & segment_t(71424, 71450), & segment_t(71488, 71494), & segment_t(71680, 71723), & segment_t(71935, 71942), & segment_t(71945, 71945), & segment_t(71948, 71955), & segment_t(71957, 71958), & segment_t(71960, 71983), & segment_t(71999, 71999), & segment_t(72001, 72001), & segment_t(72096, 72103), & segment_t(72106, 72144), & segment_t(72161, 72161), & segment_t(72163, 72163), & segment_t(72192, 72192), & segment_t(72203, 72242), & segment_t(72250, 72250), & segment_t(72272, 72272), & segment_t(72284, 72329), & segment_t(72349, 72349), & segment_t(72368, 72440), & segment_t(72640, 72672), & segment_t(72704, 72712), & segment_t(72714, 72750), & segment_t(72768, 72768), & segment_t(72818, 72847), & segment_t(72960, 72966), & segment_t(72968, 72969), & segment_t(72971, 73008), & segment_t(73030, 73030), & segment_t(73056, 73061), & segment_t(73063, 73064), & segment_t(73066, 73097), & segment_t(73112, 73112), & segment_t(73136, 73176), & segment_t(73178, 73179), & segment_t(73440, 73458), & segment_t(73474, 73474), & segment_t(73476, 73488), & segment_t(73490, 73523), & segment_t(73648, 73648), & segment_t(73728, 74649), & segment_t(74880, 75075), & segment_t(77712, 77808), & segment_t(77824, 78895), & segment_t(78913, 78918), & segment_t(78944, 82938), & segment_t(82944, 83526), & segment_t(90368, 90397), & segment_t(92160, 92728), & segment_t(92736, 92766), & segment_t(92784, 92862), & segment_t(92880, 92909), & segment_t(92928, 92975), & segment_t(93027, 93047), & segment_t(93053, 93071), & segment_t(93507, 93546), & segment_t(93952, 94026), & segment_t(94032, 94032), & segment_t(94208, 101589), & segment_t(101631, 101662), & segment_t(101760, 101874), & segment_t(110592, 110882), & segment_t(110898, 110898), & segment_t(110928, 110930), & segment_t(110933, 110933), & segment_t(110948, 110951), & segment_t(110960, 111355), & segment_t(113664, 113770), & segment_t(113776, 113788), & segment_t(113792, 113800), & segment_t(113808, 113817), & segment_t(122634, 122634), & segment_t(123136, 123180), & segment_t(123214, 123214), & segment_t(123536, 123565), & segment_t(123584, 123627), & segment_t(124112, 124138), & segment_t(124368, 124397), & segment_t(124400, 124400), & segment_t(124608, 124638), & segment_t(124640, 124642), & segment_t(124644, 124645), & segment_t(124647, 124653), & segment_t(124656, 124660), & segment_t(124670, 124670), & segment_t(124896, 124902), & segment_t(124904, 124907), & segment_t(124909, 124910), & segment_t(124912, 124926), & segment_t(124928, 125124), & segment_t(126464, 126467), & segment_t(126469, 126495), & segment_t(126497, 126498), & segment_t(126500, 126500), & segment_t(126503, 126503), & segment_t(126505, 126514), & segment_t(126516, 126519), & segment_t(126521, 126521), & segment_t(126523, 126523), & segment_t(126530, 126530), & segment_t(126535, 126535), & segment_t(126537, 126537), & segment_t(126539, 126539), & segment_t(126541, 126543), & segment_t(126545, 126546), & segment_t(126548, 126548), & segment_t(126551, 126551), & segment_t(126553, 126553), & segment_t(126555, 126555), & segment_t(126557, 126557), & segment_t(126559, 126559), & segment_t(126561, 126562), & segment_t(126564, 126564), & segment_t(126567, 126570), & segment_t(126572, 126578), & segment_t(126580, 126583), & segment_t(126585, 126588), & segment_t(126590, 126590), & segment_t(126592, 126601), & segment_t(126603, 126619), & segment_t(126625, 126627), & segment_t(126629, 126633), & segment_t(126635, 126651), & segment_t(131072, 173791), & segment_t(173824, 178205), & segment_t(178208, 183981), & segment_t(183984, 191456), & segment_t(191472, 192093), & segment_t(194560, 195101), & segment_t(196608, 201546), & segment_t(201552, 210041) & ] type(segment_t), parameter :: unicode_gc_Mn(*) = & [ & segment_t(768, 879), & segment_t(1155, 1159), & segment_t(1425, 1469), & segment_t(1471, 1471), & segment_t(1473, 1474), & segment_t(1476, 1477), & segment_t(1479, 1479), & segment_t(1552, 1562), & segment_t(1611, 1631), & segment_t(1648, 1648), & segment_t(1750, 1756), & segment_t(1759, 1764), & segment_t(1767, 1768), & segment_t(1770, 1773), & segment_t(1809, 1809), & segment_t(1840, 1866), & segment_t(1958, 1968), & segment_t(2027, 2035), & segment_t(2045, 2045), & segment_t(2070, 2073), & segment_t(2075, 2083), & segment_t(2085, 2087), & segment_t(2089, 2093), & segment_t(2137, 2139), & segment_t(2199, 2207), & segment_t(2250, 2273), & segment_t(2275, 2306), & segment_t(2362, 2362), & segment_t(2364, 2364), & segment_t(2369, 2376), & segment_t(2381, 2381), & segment_t(2385, 2391), & segment_t(2402, 2403), & segment_t(2433, 2433), & segment_t(2492, 2492), & segment_t(2497, 2500), & segment_t(2509, 2509), & segment_t(2530, 2531), & segment_t(2558, 2558), & segment_t(2561, 2562), & segment_t(2620, 2620), & segment_t(2625, 2626), & segment_t(2631, 2632), & segment_t(2635, 2637), & segment_t(2641, 2641), & segment_t(2672, 2673), & segment_t(2677, 2677), & segment_t(2689, 2690), & segment_t(2748, 2748), & segment_t(2753, 2757), & segment_t(2759, 2760), & segment_t(2765, 2765), & segment_t(2786, 2787), & segment_t(2810, 2815), & segment_t(2817, 2817), & segment_t(2876, 2876), & segment_t(2879, 2879), & segment_t(2881, 2884), & segment_t(2893, 2893), & segment_t(2901, 2902), & segment_t(2914, 2915), & segment_t(2946, 2946), & segment_t(3008, 3008), & segment_t(3021, 3021), & segment_t(3072, 3072), & segment_t(3076, 3076), & segment_t(3132, 3132), & segment_t(3134, 3136), & segment_t(3142, 3144), & segment_t(3146, 3149), & segment_t(3157, 3158), & segment_t(3170, 3171), & segment_t(3201, 3201), & segment_t(3260, 3260), & segment_t(3263, 3263), & segment_t(3270, 3270), & segment_t(3276, 3277), & segment_t(3298, 3299), & segment_t(3328, 3329), & segment_t(3387, 3388), & segment_t(3393, 3396), & segment_t(3405, 3405), & segment_t(3426, 3427), & segment_t(3457, 3457), & segment_t(3530, 3530), & segment_t(3538, 3540), & segment_t(3542, 3542), & segment_t(3633, 3633), & segment_t(3636, 3642), & segment_t(3655, 3662), & segment_t(3761, 3761), & segment_t(3764, 3772), & segment_t(3784, 3790), & segment_t(3864, 3865), & segment_t(3893, 3893), & segment_t(3895, 3895), & segment_t(3897, 3897), & segment_t(3953, 3966), & segment_t(3968, 3972), & segment_t(3974, 3975), & segment_t(3981, 3991), & segment_t(3993, 4028), & segment_t(4038, 4038), & segment_t(4141, 4144), & segment_t(4146, 4151), & segment_t(4153, 4154), & segment_t(4157, 4158), & segment_t(4184, 4185), & segment_t(4190, 4192), & segment_t(4209, 4212), & segment_t(4226, 4226), & segment_t(4229, 4230), & segment_t(4237, 4237), & segment_t(4253, 4253), & segment_t(4957, 4959), & segment_t(5906, 5908), & segment_t(5938, 5939), & segment_t(5970, 5971), & segment_t(6002, 6003), & segment_t(6068, 6069), & segment_t(6071, 6077), & segment_t(6086, 6086), & segment_t(6089, 6099), & segment_t(6109, 6109), & segment_t(6155, 6157), & segment_t(6159, 6159), & segment_t(6277, 6278), & segment_t(6313, 6313), & segment_t(6432, 6434), & segment_t(6439, 6440), & segment_t(6450, 6450), & segment_t(6457, 6459), & segment_t(6679, 6680), & segment_t(6683, 6683), & segment_t(6742, 6742), & segment_t(6744, 6750), & segment_t(6752, 6752), & segment_t(6754, 6754), & segment_t(6757, 6764), & segment_t(6771, 6780), & segment_t(6783, 6783), & segment_t(6832, 6845), & segment_t(6847, 6877), & segment_t(6880, 6891), & segment_t(6912, 6915), & segment_t(6964, 6964), & segment_t(6966, 6970), & segment_t(6972, 6972), & segment_t(6978, 6978), & segment_t(7019, 7027), & segment_t(7040, 7041), & segment_t(7074, 7077), & segment_t(7080, 7081), & segment_t(7083, 7085), & segment_t(7142, 7142), & segment_t(7144, 7145), & segment_t(7149, 7149), & segment_t(7151, 7153), & segment_t(7212, 7219), & segment_t(7222, 7223), & segment_t(7376, 7378), & segment_t(7380, 7392), & segment_t(7394, 7400), & segment_t(7405, 7405), & segment_t(7412, 7412), & segment_t(7416, 7417), & segment_t(7616, 7679), & segment_t(8400, 8412), & segment_t(8417, 8417), & segment_t(8421, 8432), & segment_t(11503, 11505), & segment_t(11647, 11647), & segment_t(11744, 11775), & segment_t(12330, 12333), & segment_t(12441, 12442), & segment_t(42607, 42607), & segment_t(42612, 42621), & segment_t(42654, 42655), & segment_t(42736, 42737), & segment_t(43010, 43010), & segment_t(43014, 43014), & segment_t(43019, 43019), & segment_t(43045, 43046), & segment_t(43052, 43052), & segment_t(43204, 43205), & segment_t(43232, 43249), & segment_t(43263, 43263), & segment_t(43302, 43309), & segment_t(43335, 43345), & segment_t(43392, 43394), & segment_t(43443, 43443), & segment_t(43446, 43449), & segment_t(43452, 43453), & segment_t(43493, 43493), & segment_t(43561, 43566), & segment_t(43569, 43570), & segment_t(43573, 43574), & segment_t(43587, 43587), & segment_t(43596, 43596), & segment_t(43644, 43644), & segment_t(43696, 43696), & segment_t(43698, 43700), & segment_t(43703, 43704), & segment_t(43710, 43711), & segment_t(43713, 43713), & segment_t(43756, 43757), & segment_t(43766, 43766), & segment_t(44005, 44005), & segment_t(44008, 44008), & segment_t(44013, 44013), & segment_t(64286, 64286), & segment_t(65024, 65039), & segment_t(65056, 65071), & segment_t(66045, 66045), & segment_t(66272, 66272), & segment_t(66422, 66426), & segment_t(68097, 68099), & segment_t(68101, 68102), & segment_t(68108, 68111), & segment_t(68152, 68154), & segment_t(68159, 68159), & segment_t(68325, 68326), & segment_t(68900, 68903), & segment_t(68969, 68973), & segment_t(69291, 69292), & segment_t(69370, 69375), & segment_t(69446, 69456), & segment_t(69506, 69509), & segment_t(69633, 69633), & segment_t(69688, 69702), & segment_t(69744, 69744), & segment_t(69747, 69748), & segment_t(69759, 69761), & segment_t(69811, 69814), & segment_t(69817, 69818), & segment_t(69826, 69826), & segment_t(69888, 69890), & segment_t(69927, 69931), & segment_t(69933, 69940), & segment_t(70003, 70003), & segment_t(70016, 70017), & segment_t(70070, 70078), & segment_t(70089, 70092), & segment_t(70095, 70095), & segment_t(70191, 70193), & segment_t(70196, 70196), & segment_t(70198, 70199), & segment_t(70206, 70206), & segment_t(70209, 70209), & segment_t(70367, 70367), & segment_t(70371, 70378), & segment_t(70400, 70401), & segment_t(70459, 70460), & segment_t(70464, 70464), & segment_t(70502, 70508), & segment_t(70512, 70516), & segment_t(70587, 70592), & segment_t(70606, 70606), & segment_t(70608, 70608), & segment_t(70610, 70610), & segment_t(70625, 70626), & segment_t(70712, 70719), & segment_t(70722, 70724), & segment_t(70726, 70726), & segment_t(70750, 70750), & segment_t(70835, 70840), & segment_t(70842, 70842), & segment_t(70847, 70848), & segment_t(70850, 70851), & segment_t(71090, 71093), & segment_t(71100, 71101), & segment_t(71103, 71104), & segment_t(71132, 71133), & segment_t(71219, 71226), & segment_t(71229, 71229), & segment_t(71231, 71232), & segment_t(71339, 71339), & segment_t(71341, 71341), & segment_t(71344, 71349), & segment_t(71351, 71351), & segment_t(71453, 71453), & segment_t(71455, 71455), & segment_t(71458, 71461), & segment_t(71463, 71467), & segment_t(71727, 71735), & segment_t(71737, 71738), & segment_t(71995, 71996), & segment_t(71998, 71998), & segment_t(72003, 72003), & segment_t(72148, 72151), & segment_t(72154, 72155), & segment_t(72160, 72160), & segment_t(72193, 72202), & segment_t(72243, 72248), & segment_t(72251, 72254), & segment_t(72263, 72263), & segment_t(72273, 72278), & segment_t(72281, 72283), & segment_t(72330, 72342), & segment_t(72344, 72345), & segment_t(72544, 72544), & segment_t(72546, 72548), & segment_t(72550, 72550), & segment_t(72752, 72758), & segment_t(72760, 72765), & segment_t(72767, 72767), & segment_t(72850, 72871), & segment_t(72874, 72880), & segment_t(72882, 72883), & segment_t(72885, 72886), & segment_t(73009, 73014), & segment_t(73018, 73018), & segment_t(73020, 73021), & segment_t(73023, 73029), & segment_t(73031, 73031), & segment_t(73104, 73105), & segment_t(73109, 73109), & segment_t(73111, 73111), & segment_t(73459, 73460), & segment_t(73472, 73473), & segment_t(73526, 73530), & segment_t(73536, 73536), & segment_t(73538, 73538), & segment_t(73562, 73562), & segment_t(78912, 78912), & segment_t(78919, 78933), & segment_t(90398, 90409), & segment_t(90413, 90415), & segment_t(92912, 92916), & segment_t(92976, 92982), & segment_t(94031, 94031), & segment_t(94095, 94098), & segment_t(94180, 94180), & segment_t(113821, 113822), & segment_t(118528, 118573), & segment_t(118576, 118598), & segment_t(119143, 119145), & segment_t(119163, 119170), & segment_t(119173, 119179), & segment_t(119210, 119213), & segment_t(119362, 119364), & segment_t(121344, 121398), & segment_t(121403, 121452), & segment_t(121461, 121461), & segment_t(121476, 121476), & segment_t(121499, 121503), & segment_t(121505, 121519), & segment_t(122880, 122886), & segment_t(122888, 122904), & segment_t(122907, 122913), & segment_t(122915, 122916), & segment_t(122918, 122922), & segment_t(123023, 123023), & segment_t(123184, 123190), & segment_t(123566, 123566), & segment_t(123628, 123631), & segment_t(124140, 124143), & segment_t(124398, 124399), & segment_t(124643, 124643), & segment_t(124646, 124646), & segment_t(124654, 124655), & segment_t(124661, 124661), & segment_t(125136, 125142), & segment_t(125252, 125258), & segment_t(917760, 917999) & ] type(segment_t), parameter :: unicode_gc_Me(*) = & [ & segment_t(1160, 1161), & segment_t(6846, 6846), & segment_t(8413, 8416), & segment_t(8418, 8420), & segment_t(42608, 42610) & ] type(segment_t), parameter :: unicode_gc_Mc(*) = & [ & segment_t(2307, 2307), & segment_t(2363, 2363), & segment_t(2366, 2368), & segment_t(2377, 2380), & segment_t(2382, 2383), & segment_t(2434, 2435), & segment_t(2494, 2496), & segment_t(2503, 2504), & segment_t(2507, 2508), & segment_t(2519, 2519), & segment_t(2563, 2563), & segment_t(2622, 2624), & segment_t(2691, 2691), & segment_t(2750, 2752), & segment_t(2761, 2761), & segment_t(2763, 2764), & segment_t(2818, 2819), & segment_t(2878, 2878), & segment_t(2880, 2880), & segment_t(2887, 2888), & segment_t(2891, 2892), & segment_t(2903, 2903), & segment_t(3006, 3007), & segment_t(3009, 3010), & segment_t(3014, 3016), & segment_t(3018, 3020), & segment_t(3031, 3031), & segment_t(3073, 3075), & segment_t(3137, 3140), & segment_t(3202, 3203), & segment_t(3262, 3262), & segment_t(3264, 3268), & segment_t(3271, 3272), & segment_t(3274, 3275), & segment_t(3285, 3286), & segment_t(3315, 3315), & segment_t(3330, 3331), & segment_t(3390, 3392), & segment_t(3398, 3400), & segment_t(3402, 3404), & segment_t(3415, 3415), & segment_t(3458, 3459), & segment_t(3535, 3537), & segment_t(3544, 3551), & segment_t(3570, 3571), & segment_t(3902, 3903), & segment_t(3967, 3967), & segment_t(4139, 4140), & segment_t(4145, 4145), & segment_t(4152, 4152), & segment_t(4155, 4156), & segment_t(4182, 4183), & segment_t(4194, 4196), & segment_t(4199, 4205), & segment_t(4227, 4228), & segment_t(4231, 4236), & segment_t(4239, 4239), & segment_t(4250, 4252), & segment_t(5909, 5909), & segment_t(5940, 5940), & segment_t(6070, 6070), & segment_t(6078, 6085), & segment_t(6087, 6088), & segment_t(6435, 6438), & segment_t(6441, 6443), & segment_t(6448, 6449), & segment_t(6451, 6456), & segment_t(6681, 6682), & segment_t(6741, 6741), & segment_t(6743, 6743), & segment_t(6753, 6753), & segment_t(6755, 6756), & segment_t(6765, 6770), & segment_t(6916, 6916), & segment_t(6965, 6965), & segment_t(6971, 6971), & segment_t(6973, 6977), & segment_t(6979, 6980), & segment_t(7042, 7042), & segment_t(7073, 7073), & segment_t(7078, 7079), & segment_t(7082, 7082), & segment_t(7143, 7143), & segment_t(7146, 7148), & segment_t(7150, 7150), & segment_t(7154, 7155), & segment_t(7204, 7211), & segment_t(7220, 7221), & segment_t(7393, 7393), & segment_t(7415, 7415), & segment_t(12334, 12335), & segment_t(43043, 43044), & segment_t(43047, 43047), & segment_t(43136, 43137), & segment_t(43188, 43203), & segment_t(43346, 43347), & segment_t(43395, 43395), & segment_t(43444, 43445), & segment_t(43450, 43451), & segment_t(43454, 43456), & segment_t(43567, 43568), & segment_t(43571, 43572), & segment_t(43597, 43597), & segment_t(43643, 43643), & segment_t(43645, 43645), & segment_t(43755, 43755), & segment_t(43758, 43759), & segment_t(43765, 43765), & segment_t(44003, 44004), & segment_t(44006, 44007), & segment_t(44009, 44010), & segment_t(44012, 44012), & segment_t(69632, 69632), & segment_t(69634, 69634), & segment_t(69762, 69762), & segment_t(69808, 69810), & segment_t(69815, 69816), & segment_t(69932, 69932), & segment_t(69957, 69958), & segment_t(70018, 70018), & segment_t(70067, 70069), & segment_t(70079, 70080), & segment_t(70094, 70094), & segment_t(70188, 70190), & segment_t(70194, 70195), & segment_t(70197, 70197), & segment_t(70368, 70370), & segment_t(70402, 70403), & segment_t(70462, 70463), & segment_t(70465, 70468), & segment_t(70471, 70472), & segment_t(70475, 70477), & segment_t(70487, 70487), & segment_t(70498, 70499), & segment_t(70584, 70586), & segment_t(70594, 70594), & segment_t(70597, 70597), & segment_t(70599, 70602), & segment_t(70604, 70605), & segment_t(70607, 70607), & segment_t(70709, 70711), & segment_t(70720, 70721), & segment_t(70725, 70725), & segment_t(70832, 70834), & segment_t(70841, 70841), & segment_t(70843, 70846), & segment_t(70849, 70849), & segment_t(71087, 71089), & segment_t(71096, 71099), & segment_t(71102, 71102), & segment_t(71216, 71218), & segment_t(71227, 71228), & segment_t(71230, 71230), & segment_t(71340, 71340), & segment_t(71342, 71343), & segment_t(71350, 71350), & segment_t(71454, 71454), & segment_t(71456, 71457), & segment_t(71462, 71462), & segment_t(71724, 71726), & segment_t(71736, 71736), & segment_t(71984, 71989), & segment_t(71991, 71992), & segment_t(71997, 71997), & segment_t(72000, 72000), & segment_t(72002, 72002), & segment_t(72145, 72147), & segment_t(72156, 72159), & segment_t(72164, 72164), & segment_t(72249, 72249), & segment_t(72279, 72280), & segment_t(72343, 72343), & segment_t(72545, 72545), & segment_t(72549, 72549), & segment_t(72551, 72551), & segment_t(72751, 72751), & segment_t(72766, 72766), & segment_t(72873, 72873), & segment_t(72881, 72881), & segment_t(72884, 72884), & segment_t(73098, 73102), & segment_t(73107, 73108), & segment_t(73110, 73110), & segment_t(73461, 73462), & segment_t(73475, 73475), & segment_t(73524, 73525), & segment_t(73534, 73535), & segment_t(73537, 73537), & segment_t(90410, 90412), & segment_t(94033, 94087), & segment_t(94192, 94193), & segment_t(119141, 119142), & segment_t(119149, 119154) & ] type(segment_t), parameter :: unicode_gc_Nd(*) = & [ & segment_t(48, 57), & segment_t(1632, 1641), & segment_t(1776, 1785), & segment_t(1984, 1993), & segment_t(2406, 2415), & segment_t(2534, 2543), & segment_t(2662, 2671), & segment_t(2790, 2799), & segment_t(2918, 2927), & segment_t(3046, 3055), & segment_t(3174, 3183), & segment_t(3302, 3311), & segment_t(3430, 3439), & segment_t(3558, 3567), & segment_t(3664, 3673), & segment_t(3792, 3801), & segment_t(3872, 3881), & segment_t(4160, 4169), & segment_t(4240, 4249), & segment_t(6112, 6121), & segment_t(6160, 6169), & segment_t(6470, 6479), & segment_t(6608, 6617), & segment_t(6784, 6793), & segment_t(6800, 6809), & segment_t(6992, 7001), & segment_t(7088, 7097), & segment_t(7232, 7241), & segment_t(7248, 7257), & segment_t(42528, 42537), & segment_t(43216, 43225), & segment_t(43264, 43273), & segment_t(43472, 43481), & segment_t(43504, 43513), & segment_t(43600, 43609), & segment_t(44016, 44025), & segment_t(65296, 65305), & segment_t(66720, 66729), & segment_t(68912, 68921), & segment_t(68928, 68937), & segment_t(69734, 69743), & segment_t(69872, 69881), & segment_t(69942, 69951), & segment_t(70096, 70105), & segment_t(70384, 70393), & segment_t(70736, 70745), & segment_t(70864, 70873), & segment_t(71248, 71257), & segment_t(71360, 71369), & segment_t(71376, 71395), & segment_t(71472, 71481), & segment_t(71904, 71913), & segment_t(72016, 72025), & segment_t(72688, 72697), & segment_t(72784, 72793), & segment_t(73040, 73049), & segment_t(73120, 73129), & segment_t(73184, 73193), & segment_t(73552, 73561), & segment_t(90416, 90425), & segment_t(92768, 92777), & segment_t(92864, 92873), & segment_t(93008, 93017), & segment_t(93552, 93561), & segment_t(118000, 118009), & segment_t(120782, 120831), & segment_t(123200, 123209), & segment_t(123632, 123641), & segment_t(124144, 124153), & segment_t(124401, 124410), & segment_t(125264, 125273), & segment_t(130032, 130041) & ] type(segment_t), parameter :: unicode_gc_Nl(*) = & [ & segment_t(5870, 5872), & segment_t(8544, 8578), & segment_t(8581, 8584), & segment_t(12295, 12295), & segment_t(12321, 12329), & segment_t(12344, 12346), & segment_t(42726, 42735), & segment_t(65856, 65908), & segment_t(66369, 66369), & segment_t(66378, 66378), & segment_t(66513, 66517), & segment_t(74752, 74862), & segment_t(94196, 94198) & ] type(segment_t), parameter :: unicode_gc_No(*) = & [ & segment_t(178, 179), & segment_t(185, 185), & segment_t(188, 190), & segment_t(2548, 2553), & segment_t(2930, 2935), & segment_t(3056, 3058), & segment_t(3192, 3198), & segment_t(3416, 3422), & segment_t(3440, 3448), & segment_t(3882, 3891), & segment_t(4969, 4988), & segment_t(6128, 6137), & segment_t(6618, 6618), & segment_t(8304, 8304), & segment_t(8308, 8313), & segment_t(8320, 8329), & segment_t(8528, 8543), & segment_t(8585, 8585), & segment_t(9312, 9371), & segment_t(9450, 9471), & segment_t(10102, 10131), & segment_t(11517, 11517), & segment_t(12690, 12693), & segment_t(12832, 12841), & segment_t(12872, 12879), & segment_t(12881, 12895), & segment_t(12928, 12937), & segment_t(12977, 12991), & segment_t(43056, 43061), & segment_t(65799, 65843), & segment_t(65909, 65912), & segment_t(65930, 65931), & segment_t(66273, 66299), & segment_t(66336, 66339), & segment_t(67672, 67679), & segment_t(67705, 67711), & segment_t(67751, 67759), & segment_t(67835, 67839), & segment_t(67862, 67867), & segment_t(68028, 68029), & segment_t(68032, 68047), & segment_t(68050, 68095), & segment_t(68160, 68168), & segment_t(68221, 68222), & segment_t(68253, 68255), & segment_t(68331, 68335), & segment_t(68440, 68447), & segment_t(68472, 68479), & segment_t(68521, 68527), & segment_t(68858, 68863), & segment_t(69216, 69246), & segment_t(69405, 69414), & segment_t(69457, 69460), & segment_t(69573, 69579), & segment_t(69714, 69733), & segment_t(70113, 70132), & segment_t(71482, 71483), & segment_t(71914, 71922), & segment_t(72794, 72812), & segment_t(73664, 73684), & segment_t(93019, 93025), & segment_t(93824, 93846), & segment_t(119488, 119507), & segment_t(119520, 119539), & segment_t(119648, 119672), & segment_t(125127, 125135), & segment_t(126065, 126123), & segment_t(126125, 126127), & segment_t(126129, 126132), & segment_t(126209, 126253), & segment_t(126255, 126269), & segment_t(127232, 127244) & ] type(segment_t), parameter :: unicode_gc_Zs(*) = & [ & segment_t(32, 32), & segment_t(160, 160), & segment_t(5760, 5760), & segment_t(8192, 8202), & segment_t(8239, 8239), & segment_t(8287, 8287), & segment_t(12288, 12288) & ] type(segment_t), parameter :: unicode_gc_Zl(*) = & [ & segment_t(8232, 8232) & ] type(segment_t), parameter :: unicode_gc_Zp(*) = & [ & segment_t(8233, 8233) & ] type(segment_t), parameter :: unicode_gc_Cc(*) = & [ & segment_t(0, 31), & segment_t(127, 159) & ] type(segment_t), parameter :: unicode_gc_Cf(*) = & [ & segment_t(173, 173), & segment_t(1536, 1541), & segment_t(1564, 1564), & segment_t(1757, 1757), & segment_t(1807, 1807), & segment_t(2192, 2193), & segment_t(2274, 2274), & segment_t(6158, 6158), & segment_t(8203, 8207), & segment_t(8234, 8238), & segment_t(8288, 8292), & segment_t(8294, 8303), & segment_t(65279, 65279), & segment_t(65529, 65531), & segment_t(69821, 69821), & segment_t(69837, 69837), & segment_t(78896, 78911), & segment_t(113824, 113827), & segment_t(119155, 119162), & segment_t(917505, 917505), & segment_t(917536, 917631) & ] type(segment_t), parameter :: unicode_gc_Co(*) = & [ & segment_t(57344, 63743), & segment_t(983040, 1048573), & segment_t(1048576, 1114109) & ] type(segment_t), parameter :: unicode_gc_Cs(*) = & [ & segment_t(55296, 57343) & ] type(segment_t), parameter :: unicode_gc_Pd(*) = & [ & segment_t(45, 45), & segment_t(1418, 1418), & segment_t(1470, 1470), & segment_t(5120, 5120), & segment_t(6150, 6150), & segment_t(8208, 8213), & segment_t(11799, 11799), & segment_t(11802, 11802), & segment_t(11834, 11835), & segment_t(11840, 11840), & segment_t(11869, 11869), & segment_t(12316, 12316), & segment_t(12336, 12336), & segment_t(12448, 12448), & segment_t(65073, 65074), & segment_t(65112, 65112), & segment_t(65123, 65123), & segment_t(65293, 65293), & segment_t(68974, 68974), & segment_t(69293, 69293) & ] type(segment_t), parameter :: unicode_gc_Ps(*) = & [ & segment_t(40, 40), & segment_t(91, 91), & segment_t(123, 123), & segment_t(3898, 3898), & segment_t(3900, 3900), & segment_t(5787, 5787), & segment_t(8218, 8218), & segment_t(8222, 8222), & segment_t(8261, 8261), & segment_t(8317, 8317), & segment_t(8333, 8333), & segment_t(8968, 8968), & segment_t(8970, 8970), & segment_t(9001, 9001), & segment_t(10088, 10088), & segment_t(10090, 10090), & segment_t(10092, 10092), & segment_t(10094, 10094), & segment_t(10096, 10096), & segment_t(10098, 10098), & segment_t(10100, 10100), & segment_t(10181, 10181), & segment_t(10214, 10214), & segment_t(10216, 10216), & segment_t(10218, 10218), & segment_t(10220, 10220), & segment_t(10222, 10222), & segment_t(10627, 10627), & segment_t(10629, 10629), & segment_t(10631, 10631), & segment_t(10633, 10633), & segment_t(10635, 10635), & segment_t(10637, 10637), & segment_t(10639, 10639), & segment_t(10641, 10641), & segment_t(10643, 10643), & segment_t(10645, 10645), & segment_t(10647, 10647), & segment_t(10712, 10712), & segment_t(10714, 10714), & segment_t(10748, 10748), & segment_t(11810, 11810), & segment_t(11812, 11812), & segment_t(11814, 11814), & segment_t(11816, 11816), & segment_t(11842, 11842), & segment_t(11861, 11861), & segment_t(11863, 11863), & segment_t(11865, 11865), & segment_t(11867, 11867), & segment_t(12296, 12296), & segment_t(12298, 12298), & segment_t(12300, 12300), & segment_t(12302, 12302), & segment_t(12304, 12304), & segment_t(12308, 12308), & segment_t(12310, 12310), & segment_t(12312, 12312), & segment_t(12314, 12314), & segment_t(12317, 12317), & segment_t(64831, 64831), & segment_t(65047, 65047), & segment_t(65077, 65077), & segment_t(65079, 65079), & segment_t(65081, 65081), & segment_t(65083, 65083), & segment_t(65085, 65085), & segment_t(65087, 65087), & segment_t(65089, 65089), & segment_t(65091, 65091), & segment_t(65095, 65095), & segment_t(65113, 65113), & segment_t(65115, 65115), & segment_t(65117, 65117), & segment_t(65288, 65288), & segment_t(65339, 65339), & segment_t(65371, 65371), & segment_t(65375, 65375), & segment_t(65378, 65378) & ] type(segment_t), parameter :: unicode_gc_Pe(*) = & [ & segment_t(41, 41), & segment_t(93, 93), & segment_t(125, 125), & segment_t(3899, 3899), & segment_t(3901, 3901), & segment_t(5788, 5788), & segment_t(8262, 8262), & segment_t(8318, 8318), & segment_t(8334, 8334), & segment_t(8969, 8969), & segment_t(8971, 8971), & segment_t(9002, 9002), & segment_t(10089, 10089), & segment_t(10091, 10091), & segment_t(10093, 10093), & segment_t(10095, 10095), & segment_t(10097, 10097), & segment_t(10099, 10099), & segment_t(10101, 10101), & segment_t(10182, 10182), & segment_t(10215, 10215), & segment_t(10217, 10217), & segment_t(10219, 10219), & segment_t(10221, 10221), & segment_t(10223, 10223), & segment_t(10628, 10628), & segment_t(10630, 10630), & segment_t(10632, 10632), & segment_t(10634, 10634), & segment_t(10636, 10636), & segment_t(10638, 10638), & segment_t(10640, 10640), & segment_t(10642, 10642), & segment_t(10644, 10644), & segment_t(10646, 10646), & segment_t(10648, 10648), & segment_t(10713, 10713), & segment_t(10715, 10715), & segment_t(10749, 10749), & segment_t(11811, 11811), & segment_t(11813, 11813), & segment_t(11815, 11815), & segment_t(11817, 11817), & segment_t(11862, 11862), & segment_t(11864, 11864), & segment_t(11866, 11866), & segment_t(11868, 11868), & segment_t(12297, 12297), & segment_t(12299, 12299), & segment_t(12301, 12301), & segment_t(12303, 12303), & segment_t(12305, 12305), & segment_t(12309, 12309), & segment_t(12311, 12311), & segment_t(12313, 12313), & segment_t(12315, 12315), & segment_t(12318, 12319), & segment_t(64830, 64830), & segment_t(65048, 65048), & segment_t(65078, 65078), & segment_t(65080, 65080), & segment_t(65082, 65082), & segment_t(65084, 65084), & segment_t(65086, 65086), & segment_t(65088, 65088), & segment_t(65090, 65090), & segment_t(65092, 65092), & segment_t(65096, 65096), & segment_t(65114, 65114), & segment_t(65116, 65116), & segment_t(65118, 65118), & segment_t(65289, 65289), & segment_t(65341, 65341), & segment_t(65373, 65373), & segment_t(65376, 65376), & segment_t(65379, 65379) & ] type(segment_t), parameter :: unicode_gc_Pc(*) = & [ & segment_t(95, 95), & segment_t(8255, 8256), & segment_t(8276, 8276), & segment_t(65075, 65076), & segment_t(65101, 65103), & segment_t(65343, 65343) & ] type(segment_t), parameter :: unicode_gc_Po(*) = & [ & segment_t(33, 35), & segment_t(37, 39), & segment_t(42, 42), & segment_t(44, 44), & segment_t(46, 47), & segment_t(58, 59), & segment_t(63, 64), & segment_t(92, 92), & segment_t(161, 161), & segment_t(167, 167), & segment_t(182, 183), & segment_t(191, 191), & segment_t(894, 894), & segment_t(903, 903), & segment_t(1370, 1375), & segment_t(1417, 1417), & segment_t(1472, 1472), & segment_t(1475, 1475), & segment_t(1478, 1478), & segment_t(1523, 1524), & segment_t(1545, 1546), & segment_t(1548, 1549), & segment_t(1563, 1563), & segment_t(1565, 1567), & segment_t(1642, 1645), & segment_t(1748, 1748), & segment_t(1792, 1805), & segment_t(2039, 2041), & segment_t(2096, 2110), & segment_t(2142, 2142), & segment_t(2404, 2405), & segment_t(2416, 2416), & segment_t(2557, 2557), & segment_t(2678, 2678), & segment_t(2800, 2800), & segment_t(3191, 3191), & segment_t(3204, 3204), & segment_t(3572, 3572), & segment_t(3663, 3663), & segment_t(3674, 3675), & segment_t(3844, 3858), & segment_t(3860, 3860), & segment_t(3973, 3973), & segment_t(4048, 4052), & segment_t(4057, 4058), & segment_t(4170, 4175), & segment_t(4347, 4347), & segment_t(4960, 4968), & segment_t(5742, 5742), & segment_t(5867, 5869), & segment_t(5941, 5942), & segment_t(6100, 6102), & segment_t(6104, 6106), & segment_t(6144, 6149), & segment_t(6151, 6154), & segment_t(6468, 6469), & segment_t(6686, 6687), & segment_t(6816, 6822), & segment_t(6824, 6829), & segment_t(6990, 6991), & segment_t(7002, 7008), & segment_t(7037, 7039), & segment_t(7164, 7167), & segment_t(7227, 7231), & segment_t(7294, 7295), & segment_t(7360, 7367), & segment_t(7379, 7379), & segment_t(8214, 8215), & segment_t(8224, 8231), & segment_t(8240, 8248), & segment_t(8251, 8254), & segment_t(8257, 8259), & segment_t(8263, 8273), & segment_t(8275, 8275), & segment_t(8277, 8286), & segment_t(11513, 11516), & segment_t(11518, 11519), & segment_t(11632, 11632), & segment_t(11776, 11777), & segment_t(11782, 11784), & segment_t(11787, 11787), & segment_t(11790, 11798), & segment_t(11800, 11801), & segment_t(11803, 11803), & segment_t(11806, 11807), & segment_t(11818, 11822), & segment_t(11824, 11833), & segment_t(11836, 11839), & segment_t(11841, 11841), & segment_t(11843, 11855), & segment_t(11858, 11860), & segment_t(12289, 12291), & segment_t(12349, 12349), & segment_t(12539, 12539), & segment_t(42238, 42239), & segment_t(42509, 42511), & segment_t(42611, 42611), & segment_t(42622, 42622), & segment_t(42738, 42743), & segment_t(43124, 43127), & segment_t(43214, 43215), & segment_t(43256, 43258), & segment_t(43260, 43260), & segment_t(43310, 43311), & segment_t(43359, 43359), & segment_t(43457, 43469), & segment_t(43486, 43487), & segment_t(43612, 43615), & segment_t(43742, 43743), & segment_t(43760, 43761), & segment_t(44011, 44011), & segment_t(65040, 65046), & segment_t(65049, 65049), & segment_t(65072, 65072), & segment_t(65093, 65094), & segment_t(65097, 65100), & segment_t(65104, 65106), & segment_t(65108, 65111), & segment_t(65119, 65121), & segment_t(65128, 65128), & segment_t(65130, 65131), & segment_t(65281, 65283), & segment_t(65285, 65287), & segment_t(65290, 65290), & segment_t(65292, 65292), & segment_t(65294, 65295), & segment_t(65306, 65307), & segment_t(65311, 65312), & segment_t(65340, 65340), & segment_t(65377, 65377), & segment_t(65380, 65381), & segment_t(65792, 65794), & segment_t(66463, 66463), & segment_t(66512, 66512), & segment_t(66927, 66927), & segment_t(67671, 67671), & segment_t(67871, 67871), & segment_t(67903, 67903), & segment_t(68176, 68184), & segment_t(68223, 68223), & segment_t(68336, 68342), & segment_t(68409, 68415), & segment_t(68505, 68508), & segment_t(69328, 69328), & segment_t(69461, 69465), & segment_t(69510, 69513), & segment_t(69703, 69709), & segment_t(69819, 69820), & segment_t(69822, 69825), & segment_t(69952, 69955), & segment_t(70004, 70005), & segment_t(70085, 70088), & segment_t(70093, 70093), & segment_t(70107, 70107), & segment_t(70109, 70111), & segment_t(70200, 70205), & segment_t(70313, 70313), & segment_t(70612, 70613), & segment_t(70615, 70616), & segment_t(70731, 70735), & segment_t(70746, 70747), & segment_t(70749, 70749), & segment_t(70854, 70854), & segment_t(71105, 71127), & segment_t(71233, 71235), & segment_t(71264, 71276), & segment_t(71353, 71353), & segment_t(71484, 71486), & segment_t(71739, 71739), & segment_t(72004, 72006), & segment_t(72162, 72162), & segment_t(72255, 72262), & segment_t(72346, 72348), & segment_t(72350, 72354), & segment_t(72448, 72457), & segment_t(72673, 72673), & segment_t(72769, 72773), & segment_t(72816, 72817), & segment_t(73463, 73464), & segment_t(73539, 73551), & segment_t(73727, 73727), & segment_t(74864, 74868), & segment_t(77809, 77810), & segment_t(92782, 92783), & segment_t(92917, 92917), & segment_t(92983, 92987), & segment_t(92996, 92996), & segment_t(93549, 93551), & segment_t(93847, 93850), & segment_t(94178, 94178), & segment_t(113823, 113823), & segment_t(121479, 121483), & segment_t(124415, 124415), & segment_t(125278, 125279) & ] type(segment_t), parameter :: unicode_gc_Sm(*) = & [ & segment_t(43, 43), & segment_t(60, 62), & segment_t(124, 124), & segment_t(126, 126), & segment_t(172, 172), & segment_t(177, 177), & segment_t(215, 215), & segment_t(247, 247), & segment_t(1014, 1014), & segment_t(1542, 1544), & segment_t(8260, 8260), & segment_t(8274, 8274), & segment_t(8314, 8316), & segment_t(8330, 8332), & segment_t(8472, 8472), & segment_t(8512, 8516), & segment_t(8523, 8523), & segment_t(8592, 8596), & segment_t(8602, 8603), & segment_t(8608, 8608), & segment_t(8611, 8611), & segment_t(8614, 8614), & segment_t(8622, 8622), & segment_t(8654, 8655), & segment_t(8658, 8658), & segment_t(8660, 8660), & segment_t(8692, 8959), & segment_t(8992, 8993), & segment_t(9084, 9084), & segment_t(9115, 9139), & segment_t(9180, 9185), & segment_t(9655, 9655), & segment_t(9665, 9665), & segment_t(9720, 9727), & segment_t(9839, 9839), & segment_t(10176, 10180), & segment_t(10183, 10213), & segment_t(10224, 10239), & segment_t(10496, 10626), & segment_t(10649, 10711), & segment_t(10716, 10747), & segment_t(10750, 11007), & segment_t(11056, 11076), & segment_t(11079, 11084), & segment_t(64297, 64297), & segment_t(65122, 65122), & segment_t(65124, 65126), & segment_t(65291, 65291), & segment_t(65308, 65310), & segment_t(65372, 65372), & segment_t(65374, 65374), & segment_t(65506, 65506), & segment_t(65513, 65516), & segment_t(69006, 69007), & segment_t(118512, 118512), & segment_t(120513, 120513), & segment_t(120539, 120539), & segment_t(120571, 120571), & segment_t(120597, 120597), & segment_t(120629, 120629), & segment_t(120655, 120655), & segment_t(120687, 120687), & segment_t(120713, 120713), & segment_t(120745, 120745), & segment_t(120771, 120771), & segment_t(126704, 126705), & segment_t(129232, 129240) & ] type(segment_t), parameter :: unicode_gc_Sc(*) = & [ & segment_t(36, 36), & segment_t(162, 165), & segment_t(1423, 1423), & segment_t(1547, 1547), & segment_t(2046, 2047), & segment_t(2546, 2547), & segment_t(2555, 2555), & segment_t(2801, 2801), & segment_t(3065, 3065), & segment_t(3647, 3647), & segment_t(6107, 6107), & segment_t(8352, 8385), & segment_t(43064, 43064), & segment_t(65020, 65020), & segment_t(65129, 65129), & segment_t(65284, 65284), & segment_t(65504, 65505), & segment_t(65509, 65510), & segment_t(73693, 73696), & segment_t(123647, 123647), & segment_t(126128, 126128) & ] type(segment_t), parameter :: unicode_gc_Sk(*) = & [ & segment_t(94, 94), & segment_t(96, 96), & segment_t(168, 168), & segment_t(175, 175), & segment_t(180, 180), & segment_t(184, 184), & segment_t(706, 709), & segment_t(722, 735), & segment_t(741, 747), & segment_t(749, 749), & segment_t(751, 767), & segment_t(885, 885), & segment_t(900, 901), & segment_t(2184, 2184), & segment_t(8125, 8125), & segment_t(8127, 8129), & segment_t(8141, 8143), & segment_t(8157, 8159), & segment_t(8173, 8175), & segment_t(8189, 8190), & segment_t(12443, 12444), & segment_t(42752, 42774), & segment_t(42784, 42785), & segment_t(42889, 42890), & segment_t(43867, 43867), & segment_t(43882, 43883), & segment_t(64434, 64450), & segment_t(65342, 65342), & segment_t(65344, 65344), & segment_t(65507, 65507), & segment_t(127995, 127999) & ] type(segment_t), parameter :: unicode_gc_So(*) = & [ & segment_t(166, 166), & segment_t(169, 169), & segment_t(174, 174), & segment_t(176, 176), & segment_t(1154, 1154), & segment_t(1421, 1422), & segment_t(1550, 1551), & segment_t(1758, 1758), & segment_t(1769, 1769), & segment_t(1789, 1790), & segment_t(2038, 2038), & segment_t(2554, 2554), & segment_t(2928, 2928), & segment_t(3059, 3064), & segment_t(3066, 3066), & segment_t(3199, 3199), & segment_t(3407, 3407), & segment_t(3449, 3449), & segment_t(3841, 3843), & segment_t(3859, 3859), & segment_t(3861, 3863), & segment_t(3866, 3871), & segment_t(3892, 3892), & segment_t(3894, 3894), & segment_t(3896, 3896), & segment_t(4030, 4037), & segment_t(4039, 4044), & segment_t(4046, 4047), & segment_t(4053, 4056), & segment_t(4254, 4255), & segment_t(5008, 5017), & segment_t(5741, 5741), & segment_t(6464, 6464), & segment_t(6622, 6655), & segment_t(7009, 7018), & segment_t(7028, 7036), & segment_t(8448, 8449), & segment_t(8451, 8454), & segment_t(8456, 8457), & segment_t(8468, 8468), & segment_t(8470, 8471), & segment_t(8478, 8483), & segment_t(8485, 8485), & segment_t(8487, 8487), & segment_t(8489, 8489), & segment_t(8494, 8494), & segment_t(8506, 8507), & segment_t(8522, 8522), & segment_t(8524, 8525), & segment_t(8527, 8527), & segment_t(8586, 8587), & segment_t(8597, 8601), & segment_t(8604, 8607), & segment_t(8609, 8610), & segment_t(8612, 8613), & segment_t(8615, 8621), & segment_t(8623, 8653), & segment_t(8656, 8657), & segment_t(8659, 8659), & segment_t(8661, 8691), & segment_t(8960, 8967), & segment_t(8972, 8991), & segment_t(8994, 9000), & segment_t(9003, 9083), & segment_t(9085, 9114), & segment_t(9140, 9179), & segment_t(9186, 9257), & segment_t(9280, 9290), & segment_t(9372, 9449), & segment_t(9472, 9654), & segment_t(9656, 9664), & segment_t(9666, 9719), & segment_t(9728, 9838), & segment_t(9840, 10087), & segment_t(10132, 10175), & segment_t(10240, 10495), & segment_t(11008, 11055), & segment_t(11077, 11078), & segment_t(11085, 11123), & segment_t(11126, 11263), & segment_t(11493, 11498), & segment_t(11856, 11857), & segment_t(11904, 11929), & segment_t(11931, 12019), & segment_t(12032, 12245), & segment_t(12272, 12287), & segment_t(12292, 12292), & segment_t(12306, 12307), & segment_t(12320, 12320), & segment_t(12342, 12343), & segment_t(12350, 12351), & segment_t(12688, 12689), & segment_t(12694, 12703), & segment_t(12736, 12773), & segment_t(12783, 12783), & segment_t(12800, 12830), & segment_t(12842, 12871), & segment_t(12880, 12880), & segment_t(12896, 12927), & segment_t(12938, 12976), & segment_t(12992, 13311), & segment_t(19904, 19967), & segment_t(42128, 42182), & segment_t(43048, 43051), & segment_t(43062, 43063), & segment_t(43065, 43065), & segment_t(43639, 43641), & segment_t(64451, 64466), & segment_t(64832, 64847), & segment_t(64912, 64913), & segment_t(64968, 64975), & segment_t(65021, 65023), & segment_t(65508, 65508), & segment_t(65512, 65512), & segment_t(65517, 65518), & segment_t(65532, 65533), & segment_t(65847, 65855), & segment_t(65913, 65929), & segment_t(65932, 65934), & segment_t(65936, 65948), & segment_t(65952, 65952), & segment_t(66000, 66044), & segment_t(67703, 67704), & segment_t(68296, 68296), & segment_t(69329, 69336), & segment_t(71487, 71487), & segment_t(73685, 73692), & segment_t(73697, 73713), & segment_t(92988, 92991), & segment_t(92997, 92997), & segment_t(113820, 113820), & segment_t(117760, 117999), & segment_t(118010, 118012), & segment_t(118016, 118451), & segment_t(118458, 118480), & segment_t(118496, 118511), & segment_t(118608, 118723), & segment_t(118784, 119029), & segment_t(119040, 119078), & segment_t(119081, 119140), & segment_t(119146, 119148), & segment_t(119171, 119172), & segment_t(119180, 119209), & segment_t(119214, 119274), & segment_t(119296, 119361), & segment_t(119365, 119365), & segment_t(119552, 119638), & segment_t(120832, 121343), & segment_t(121399, 121402), & segment_t(121453, 121460), & segment_t(121462, 121475), & segment_t(121477, 121478), & segment_t(123215, 123215), & segment_t(126124, 126124), & segment_t(126254, 126254), & segment_t(126976, 127019), & segment_t(127024, 127123), & segment_t(127136, 127150), & segment_t(127153, 127167), & segment_t(127169, 127183), & segment_t(127185, 127221), & segment_t(127245, 127405), & segment_t(127462, 127490), & segment_t(127504, 127547), & segment_t(127552, 127560), & segment_t(127568, 127569), & segment_t(127584, 127589), & segment_t(127744, 127994), & segment_t(128000, 128728), & segment_t(128732, 128748), & segment_t(128752, 128764), & segment_t(128768, 128985), & segment_t(128992, 129003), & segment_t(129008, 129008), & segment_t(129024, 129035), & segment_t(129040, 129095), & segment_t(129104, 129113), & segment_t(129120, 129159), & segment_t(129168, 129197), & segment_t(129200, 129211), & segment_t(129216, 129217), & segment_t(129280, 129623), & segment_t(129632, 129645), & segment_t(129648, 129660), & segment_t(129664, 129674), & segment_t(129678, 129734), & segment_t(129736, 129736), & segment_t(129741, 129756), & segment_t(129759, 129770), & segment_t(129775, 129784), & segment_t(129792, 129938), & segment_t(129940, 130031), & segment_t(130042, 130042) & ] type(segment_t), parameter :: unicode_gc_Pi(*) = & [ & segment_t(171, 171), & segment_t(8216, 8216), & segment_t(8219, 8220), & segment_t(8223, 8223), & segment_t(8249, 8249), & segment_t(11778, 11778), & segment_t(11780, 11780), & segment_t(11785, 11785), & segment_t(11788, 11788), & segment_t(11804, 11804), & segment_t(11808, 11808) & ] type(segment_t), parameter :: unicode_gc_Pf(*) = & [ & segment_t(187, 187), & segment_t(8217, 8217), & segment_t(8221, 8221), & segment_t(8250, 8250), & segment_t(11779, 11779), & segment_t(11781, 11781), & segment_t(11786, 11786), & segment_t(11789, 11789), & segment_t(11805, 11805), & segment_t(11809, 11809) & ] end module forgex_unicode_gc_m