day12-2.p

/*
--- Part Two ---

There are more programs than just the ones in the group containing program ID 0. The rest of them have no way of reaching that group, and still might have no way of reaching each other.

A group is a collection of programs that can all communicate via pipes either directly or indirectly. The programs you identified just a moment ago are all part of the same group. Now, they would like you to determine the total number of groups.

In the example above, there were 2 groups: one consisting of programs 0,2,3,4,5,6, and the other consisting solely of program 1.

How many groups are there in total?
*/
DEFINE VARIABLE cInput AS LONGCHAR   NO-UNDO.
/*
cInput = "0 <-> 2~n
1 <-> 1~n
2 <-> 0, 3, 4~n
3 <-> 2, 4~n
4 <-> 2, 3, 6~n
5 <-> 6~n
6 <-> 4, 5".
*/
cInput = "0 <-> 584, 830~n
1 <-> 415, 531~n
2 <-> 514, 1419~n
3 <-> 3~n
4 <-> 1043~n
5 <-> 440~n
6 <-> 452, 1651, 1861~n
7 <-> 368, 783, 1364~n
8 <-> 813~n
9 <-> 79, 1562~n
10 <-> 465, 1947~n
11 <-> 408, 1095~n
12 <-> 12, 1386~n
13 <-> 179, 497, 1196, 1918~n
14 <-> 1650~n
15 <-> 211, 1763~n
16 <-> 598, 809, 1659~n
17 <-> 17, 222, 1233, 1716~n
18 <-> 254, 521~n
19 <-> 1928~n
20 <-> 477, 1388~n
21 <-> 133~n
22 <-> 1410~n
23 <-> 502~n
24 <-> 142, 658, 1177~n
25 <-> 1975~n
26 <-> 1639~n
27 <-> 719~n
28 <-> 267~n
29 <-> 1239~n
30 <-> 951, 997, 1814~n
31 <-> 750, 1073~n
32 <-> 191, 567, 1501~n
33 <-> 312~n
34 <-> 801~n
35 <-> 740~n
36 <-> 883, 1039~n
37 <-> 37~n
38 <-> 1073~n
39 <-> 823, 1375, 1790~n
40 <-> 618, 987~n
41 <-> 188, 988~n
42 <-> 1805, 1994~n
43 <-> 870, 969, 1107, 1110~n
44 <-> 1623~n
45 <-> 551, 1745~n
46 <-> 634, 790, 1637~n
47 <-> 314, 458~n
48 <-> 493, 1347, 1573~n
49 <-> 339, 1539~n
50 <-> 158, 308~n
51 <-> 176, 877~n
52 <-> 1191, 1236, 1616~n
53 <-> 900~n
54 <-> 188~n
55 <-> 336, 1134~n
56 <-> 422, 1110~n
57 <-> 817~n
58 <-> 862~n
59 <-> 373, 732~n
60 <-> 1431, 1974~n
61 <-> 1246, 1564~n
62 <-> 1015, 1227~n
63 <-> 166, 234, 288, 1746~n
64 <-> 1183~n
65 <-> 472~n
66 <-> 184, 1979~n
67 <-> 1430~n
68 <-> 1416, 1674, 1883~n
69 <-> 309, 675~n
70 <-> 1230~n
71 <-> 145, 343~n
72 <-> 446, 1185, 1187, 1421, 1819~n
73 <-> 248, 1278, 1779~n
74 <-> 502, 1470, 1857~n
75 <-> 645, 914~n
76 <-> 800, 968~n
77 <-> 1691~n
78 <-> 78~n
79 <-> 9, 1396~n
80 <-> 519, 636, 1091~n
81 <-> 292~n
82 <-> 286, 945~n
83 <-> 403, 737~n
84 <-> 806, 1435, 1893~n
85 <-> 895, 955~n
86 <-> 505~n
87 <-> 1125~n
88 <-> 88~n
89 <-> 908~n
90 <-> 1656~n
91 <-> 91, 1476~n
92 <-> 1524, 1699~n
93 <-> 1298, 1994~n
94 <-> 94, 1315~n
95 <-> 1996~n
96 <-> 575, 1837~n
97 <-> 620~n
98 <-> 1097, 1144~n
99 <-> 266, 684~n
100 <-> 1471~n
101 <-> 262, 549~n
102 <-> 209, 1585~n
103 <-> 1333~n
104 <-> 1794~n
105 <-> 287, 787~n
106 <-> 672, 891~n
107 <-> 900, 979~n
108 <-> 439, 1679, 1767~n
109 <-> 431, 621, 861, 1297~n
110 <-> 1043~n
111 <-> 1355, 1479~n
112 <-> 1195~n
113 <-> 320, 1710~n
114 <-> 159~n
115 <-> 767, 984~n
116 <-> 1918~n
117 <-> 1445~n
118 <-> 471, 599~n
119 <-> 1599, 1625~n
120 <-> 653, 1056~n
121 <-> 1083, 1143~n
122 <-> 1099, 1952~n
123 <-> 474, 1491~n
124 <-> 789, 1645~n
125 <-> 825, 1862~n
126 <-> 1913~n
127 <-> 1312~n
128 <-> 1016, 1704~n
129 <-> 1516, 1892~n
130 <-> 762, 1013, 1343~n
131 <-> 188, 864~n
132 <-> 380~n
133 <-> 21, 340, 371~n
134 <-> 772~n
135 <-> 1062~n
136 <-> 942~n
137 <-> 652, 923, 1520, 1580, 1596~n
138 <-> 1321, 1975~n
139 <-> 139, 1664~n
140 <-> 1061, 1357~n
141 <-> 1589~n
142 <-> 24, 1629, 1866~n
143 <-> 903, 1466, 1798~n
144 <-> 144, 792~n
145 <-> 71~n
146 <-> 575, 1401~n
147 <-> 692~n
148 <-> 204, 447, 1294~n
149 <-> 407, 642~n
150 <-> 982~n
151 <-> 542, 995, 1027~n
152 <-> 1586~n
153 <-> 686~n
154 <-> 289, 580~n
155 <-> 259, 786, 859, 1487~n
156 <-> 1096~n
157 <-> 1939~n
158 <-> 50, 341, 741, 1007, 1064~n
159 <-> 114, 159, 325, 831~n
160 <-> 1088~n
161 <-> 425~n
162 <-> 195~n
163 <-> 479, 930~n
164 <-> 1486, 1755~n
165 <-> 228, 808~n
166 <-> 63~n
167 <-> 1673~n
168 <-> 168~n
169 <-> 243, 466~n
170 <-> 1105~n
171 <-> 570~n
172 <-> 178, 526, 1318, 1364~n
173 <-> 1126~n
174 <-> 1330, 1383, 1754~n
175 <-> 606, 1180~n
176 <-> 51, 1685~n
177 <-> 1872~n
178 <-> 172~n
179 <-> 13, 304~n
180 <-> 424~n
181 <-> 1092~n
182 <-> 1329~n
183 <-> 1195, 1861~n
184 <-> 66, 1912~n
185 <-> 185, 400~n
186 <-> 1305, 1644~n
187 <-> 648, 1931~n
188 <-> 41, 54, 131, 1114~n
189 <-> 206~n
190 <-> 1794~n
191 <-> 32, 1399~n
192 <-> 466~n
193 <-> 906, 1244, 1334~n
194 <-> 1614~n
195 <-> 162, 1660~n
196 <-> 788~n
197 <-> 1028, 1083~n
198 <-> 1089, 1666~n
199 <-> 879, 1609~n
200 <-> 220~n
201 <-> 201~n
202 <-> 1431~n
203 <-> 1503~n
204 <-> 148~n
205 <-> 205, 868~n
206 <-> 189, 1561~n
207 <-> 902, 1115~n
208 <-> 712, 880~n
209 <-> 102, 843, 1474~n
210 <-> 707, 1411~n
211 <-> 15, 845, 950~n
212 <-> 360, 468, 1848~n
213 <-> 1355~n
214 <-> 888~n
215 <-> 1270, 1604, 1718~n
216 <-> 620, 1222~n
217 <-> 1521, 1894~n
218 <-> 227, 935, 1793, 1803~n
219 <-> 566~n
220 <-> 200, 1474~n
221 <-> 540, 1836~n
222 <-> 17, 487, 697~n
223 <-> 1631~n
224 <-> 742, 894~n
225 <-> 1701~n
226 <-> 387, 905, 1871~n
227 <-> 218~n
228 <-> 165, 865~n
229 <-> 1150~n
230 <-> 1286~n
231 <-> 1789~n
232 <-> 233, 1232, 1243, 1375~n
233 <-> 232~n
234 <-> 63, 447, 1165~n
235 <-> 1992~n
236 <-> 667, 1219~n
237 <-> 1681, 1704, 1725~n
238 <-> 1147, 1434~n
239 <-> 517~n
240 <-> 743~n
241 <-> 1100, 1126~n
242 <-> 1344~n
243 <-> 169, 1582~n
244 <-> 1185, 1815~n
245 <-> 577, 1090~n
246 <-> 476, 818, 1465~n
247 <-> 592, 1928~n
248 <-> 73, 1761~n
249 <-> 1937~n
250 <-> 956~n
251 <-> 960~n
252 <-> 746~n
253 <-> 1545~n
254 <-> 18~n
255 <-> 255, 1362~n
256 <-> 830, 1927~n
257 <-> 461, 954~n
258 <-> 489, 1338~n
259 <-> 155, 712, 1802~n
260 <-> 1121~n
261 <-> 261~n
262 <-> 101, 1009, 1020~n
263 <-> 1791, 1968~n
264 <-> 1816~n
265 <-> 917, 1307~n
266 <-> 99, 1041~n
267 <-> 28, 459, 752, 1855~n
268 <-> 296, 694~n
269 <-> 1275~n
270 <-> 1113~n
271 <-> 750, 1174~n
272 <-> 580~n
273 <-> 1470~n
274 <-> 1138~n
275 <-> 512, 920~n
276 <-> 863, 1570~n
277 <-> 1830~n
278 <-> 1674~n
279 <-> 901, 934~n
280 <-> 1004~n
281 <-> 366, 545, 1161~n
282 <-> 1744, 1878~n
283 <-> 330~n
284 <-> 1279~n
285 <-> 873~n
286 <-> 82, 357~n
287 <-> 105~n
288 <-> 63, 510~n
289 <-> 154~n
290 <-> 1456~n
291 <-> 1154, 1156~n
292 <-> 81, 753, 805, 1034~n
293 <-> 1722~n
294 <-> 1918~n
295 <-> 315, 731~n
296 <-> 268, 994, 1045~n
297 <-> 1011~n
298 <-> 862, 1020~n
299 <-> 299, 442, 1452~n
300 <-> 1393, 1438~n
301 <-> 1351, 1507~n
302 <-> 751, 1128~n
303 <-> 1530, 1755~n
304 <-> 179, 960~n
305 <-> 418, 625~n
306 <-> 1525, 1728~n
307 <-> 817, 937, 1138~n
308 <-> 50~n
309 <-> 69, 309~n
310 <-> 1307~n
311 <-> 503, 981, 1025~n
312 <-> 33, 856~n
313 <-> 750, 1018~n
314 <-> 47, 489, 726~n
315 <-> 295, 1663~n
316 <-> 565, 1900~n
317 <-> 1105, 1384~n
318 <-> 988~n
319 <-> 830~n
320 <-> 113, 320~n
321 <-> 1500~n
322 <-> 389, 1377~n
323 <-> 791~n
324 <-> 785~n
325 <-> 159, 800, 1721~n
326 <-> 326, 1316~n
327 <-> 1097~n
328 <-> 660, 1006~n
329 <-> 590~n
330 <-> 283, 330, 1223, 1502~n
331 <-> 1436, 1471~n
332 <-> 332~n
333 <-> 1060~n
334 <-> 824~n
335 <-> 520, 678, 1302~n
336 <-> 55, 410, 1092, 1093~n
337 <-> 1369~n
338 <-> 772, 1442~n
339 <-> 49~n
340 <-> 133, 1393~n
341 <-> 158~n
342 <-> 724~n
343 <-> 71, 483, 970, 1446~n
344 <-> 344, 617~n
345 <-> 830, 1174~n
346 <-> 1551~n
347 <-> 1230, 1637, 1673, 1907~n
348 <-> 804~n
349 <-> 522, 1405~n
350 <-> 574, 800, 1021~n
351 <-> 1494~n
352 <-> 352~n
353 <-> 627, 1658~n
354 <-> 1822~n
355 <-> 527~n
356 <-> 1108, 1175~n
357 <-> 286, 435, 782, 961~n
358 <-> 905~n
359 <-> 691, 715~n
360 <-> 212~n
361 <-> 1071, 1788~n
362 <-> 963, 1286, 1861~n
363 <-> 612, 884, 1687~n
364 <-> 451, 1668, 1805~n
365 <-> 558, 604, 1593~n
366 <-> 281~n
367 <-> 1054, 1472~n
368 <-> 7~n
369 <-> 1686~n
370 <-> 396, 1919~n
371 <-> 133, 896~n
372 <-> 1909~n
373 <-> 59, 491, 1838~n
374 <-> 561~n
375 <-> 478, 1117, 1179~n
376 <-> 1261, 1674~n
377 <-> 822, 1188~n
378 <-> 1536, 1551, 1635~n
379 <-> 379~n
380 <-> 132, 1866~n
381 <-> 1935~n
382 <-> 1980~n
383 <-> 1139~n
384 <-> 1502~n
385 <-> 613~n
386 <-> 781, 987~n
387 <-> 226~n
388 <-> 388~n
389 <-> 322~n
390 <-> 1009, 1198~n
391 <-> 430, 1429~n
392 <-> 1639~n
393 <-> 1897~n
394 <-> 1568, 1701~n
395 <-> 928~n
396 <-> 370, 885~n
397 <-> 474, 622~n
398 <-> 1174, 1280~n
399 <-> 1449, 1661~n
400 <-> 185, 1135~n
401 <-> 839~n
402 <-> 1167, 1977~n
403 <-> 83, 935~n
404 <-> 749~n
405 <-> 405, 1775~n
406 <-> 812, 913, 1719~n
407 <-> 149, 875~n
408 <-> 11~n
409 <-> 635~n
410 <-> 336, 653, 757~n
411 <-> 1406~n
412 <-> 520~n
413 <-> 791, 1129~n
414 <-> 581~n
415 <-> 1, 769, 1250~n
416 <-> 424, 903~n
417 <-> 417, 1112~n
418 <-> 305~n
419 <-> 1414~n
420 <-> 743, 1912~n
421 <-> 1411~n
422 <-> 56, 1365, 1895~n
423 <-> 1228, 1874~n
424 <-> 180, 416~n
425 <-> 161, 548, 1428, 1817~n
426 <-> 474~n
427 <-> 477, 1982~n
428 <-> 654, 1016, 1781, 1889~n
429 <-> 1165, 1258~n
430 <-> 391, 1648~n
431 <-> 109~n
432 <-> 432, 612, 1324~n
433 <-> 1678~n
434 <-> 988, 1272, 1322~n
435 <-> 357~n
436 <-> 1267, 1682~n
437 <-> 975~n
438 <-> 1632, 1865~n
439 <-> 108, 439, 775~n
440 <-> 5, 1510, 1635, 1744~n
441 <-> 441~n
442 <-> 299, 615, 801~n
443 <-> 443~n
444 <-> 794, 1042, 1868~n
445 <-> 1427~n
446 <-> 72, 1536~n
447 <-> 148, 234~n
448 <-> 469, 720, 1418~n
449 <-> 449~n
450 <-> 1628~n
451 <-> 364~n
452 <-> 6~n
453 <-> 546~n
454 <-> 894, 1001, 1137~n
455 <-> 1235, 1764~n
456 <-> 1232~n
457 <-> 1864, 1946~n
458 <-> 47~n
459 <-> 267, 624, 1675~n
460 <-> 509, 610, 1406, 1548~n
461 <-> 257~n
462 <-> 979, 1340, 1500, 1989~n
463 <-> 551, 1483~n
464 <-> 1291, 1397, 1543, 1786~n
465 <-> 10, 1661~n
466 <-> 169, 192, 553~n
467 <-> 1394, 1987~n
468 <-> 212~n
469 <-> 448~n
470 <-> 1536~n
471 <-> 118, 477, 1962~n
472 <-> 65, 983, 1763~n
473 <-> 1988~n
474 <-> 123, 397, 426~n
475 <-> 475~n
476 <-> 246, 718, 1177~n
477 <-> 20, 427, 471~n
478 <-> 375, 495~n
479 <-> 163, 479, 1705, 1914~n
480 <-> 744~n
481 <-> 497, 1051~n
482 <-> 1134~n
483 <-> 343, 783~n
484 <-> 556, 1360, 1735~n
485 <-> 1464~n
486 <-> 901, 1387~n
487 <-> 222~n
488 <-> 621, 1206, 1560~n
489 <-> 258, 314~n
490 <-> 1714~n
491 <-> 373, 1038~n
492 <-> 1127, 1848, 1960~n
493 <-> 48~n
494 <-> 638, 1948~n
495 <-> 478, 1397~n
496 <-> 1180~n
497 <-> 13, 481, 1119~n
498 <-> 1275~n
499 <-> 1158~n
500 <-> 988, 1058, 1758~n
501 <-> 715, 1186, 1697~n
502 <-> 23, 74, 605, 1514~n
503 <-> 311~n
504 <-> 550, 744, 807, 1378, 1636~n
505 <-> 86, 1925~n
506 <-> 506~n
507 <-> 1944~n
508 <-> 1130~n
509 <-> 460~n
510 <-> 288, 1254, 1434, 1997~n
511 <-> 714, 884~n
512 <-> 275~n
513 <-> 1730~n
514 <-> 2, 999~n
515 <-> 1593~n
516 <-> 615~n
517 <-> 239, 816~n
518 <-> 518, 765~n
519 <-> 80, 1003~n
520 <-> 335, 412, 915~n
521 <-> 18, 569~n
522 <-> 349~n
523 <-> 523, 543~n
524 <-> 524, 1270~n
525 <-> 1285, 1850~n
526 <-> 172~n
527 <-> 355, 528, 1345~n
528 <-> 527, 1229~n
529 <-> 621, 1798~n
530 <-> 993, 1608~n
531 <-> 1, 647~n
532 <-> 1474~n
533 <-> 592~n
534 <-> 1142~n
535 <-> 1484~n
536 <-> 554, 803~n
537 <-> 1507~n
538 <-> 588, 812~n
539 <-> 539, 571~n
540 <-> 221~n
541 <-> 1261~n
542 <-> 151, 1650~n
543 <-> 523~n
544 <-> 1672~n
545 <-> 281, 1207, 1522~n
546 <-> 453, 1169, 1809~n
547 <-> 985, 1115, 1729~n
548 <-> 425, 640~n
549 <-> 101~n
550 <-> 504, 1535, 1717~n
551 <-> 45, 463, 1517, 1833~n
552 <-> 734, 1667~n
553 <-> 466, 1921~n
554 <-> 536~n
555 <-> 1401~n
556 <-> 484, 910, 1930~n
557 <-> 557~n
558 <-> 365~n
559 <-> 619, 630~n
560 <-> 560~n
561 <-> 374, 1961~n
562 <-> 1863~n
563 <-> 1238, 1733~n
564 <-> 950~n
565 <-> 316, 1157~n
566 <-> 219, 824, 1274~n
567 <-> 32~n
568 <-> 1121~n
569 <-> 521, 593, 1336, 1982~n
570 <-> 171, 967~n
571 <-> 539, 891~n
572 <-> 785~n
573 <-> 1009~n
574 <-> 350~n
575 <-> 96, 146, 1575~n
576 <-> 601, 830, 1921~n
577 <-> 245, 604~n
578 <-> 1837~n
579 <-> 1018, 1757~n
580 <-> 154, 272, 888~n
581 <-> 414, 1734~n
582 <-> 1866~n
583 <-> 971, 1936~n
584 <-> 0, 1082~n
585 <-> 1371~n
586 <-> 586, 926~n
587 <-> 672~n
588 <-> 538~n
589 <-> 1776~n
590 <-> 329, 733~n
591 <-> 897, 1511~n
592 <-> 247, 533, 1313~n
593 <-> 569, 929, 1551, 1994~n
594 <-> 1249~n
595 <-> 1728, 1797, 1872~n
596 <-> 856, 1209~n
597 <-> 1488, 1520~n
598 <-> 16~n
599 <-> 118~n
600 <-> 1337, 1355, 1703~n
601 <-> 576~n
602 <-> 1615~n
603 <-> 1264~n
604 <-> 365, 577, 1356~n
605 <-> 502~n
606 <-> 175, 1491, 1584~n
607 <-> 1777~n
608 <-> 760, 1779~n
609 <-> 737~n
610 <-> 460~n
611 <-> 611~n
612 <-> 363, 432, 1963~n
613 <-> 385, 708, 875, 1289, 1557, 1618~n
614 <-> 1303~n
615 <-> 442, 516~n
616 <-> 1556, 1676~n
617 <-> 344~n
618 <-> 40, 641, 1124~n
619 <-> 559, 1649~n
620 <-> 97, 216~n
621 <-> 109, 488, 529~n
622 <-> 397, 886~n
623 <-> 623, 716~n
624 <-> 459~n
625 <-> 305, 1126~n
626 <-> 936, 1998~n
627 <-> 353, 846, 1672~n
628 <-> 628, 1734~n
629 <-> 977, 1257, 1958~n
630 <-> 559, 1559, 1977~n
631 <-> 1744~n
632 <-> 1008, 1620~n
633 <-> 818, 1678~n
634 <-> 46, 1259~n
635 <-> 409, 663~n
636 <-> 80, 1622~n
637 <-> 1856~n
638 <-> 494, 734, 1983~n
639 <-> 639, 1402~n
640 <-> 548, 1156, 1493~n
641 <-> 618~n
642 <-> 149~n
643 <-> 643~n
644 <-> 1233, 1512~n
645 <-> 75, 645, 1909~n
646 <-> 675~n
647 <-> 531, 1346, 1352~n
648 <-> 187, 1137, 1585~n
649 <-> 1048~n
650 <-> 1360~n
651 <-> 1072, 1168~n
652 <-> 137, 652, 771, 1282~n
653 <-> 120, 410~n
654 <-> 428, 1669~n
655 <-> 1403~n
656 <-> 1589~n
657 <-> 1707~n
658 <-> 24, 730~n
659 <-> 1282, 1823~n
660 <-> 328, 1453~n
661 <-> 727~n
662 <-> 1190, 1788, 1857~n
663 <-> 635, 1622~n
664 <-> 1471~n
665 <-> 665~n
666 <-> 1064, 1955~n
667 <-> 236, 667~n
668 <-> 1222, 1709~n
669 <-> 766, 1048, 1127~n
670 <-> 670, 1168~n
671 <-> 1165~n
672 <-> 106, 587, 1201, 1950~n
673 <-> 949~n
674 <-> 1623~n
675 <-> 69, 646, 1489, 1976~n
676 <-> 948~n
677 <-> 1576, 1743~n
678 <-> 335, 1084~n
679 <-> 1081~n
680 <-> 680, 747~n
681 <-> 1015~n
682 <-> 1062~n
683 <-> 823, 1160~n
684 <-> 99, 1415~n
685 <-> 1695~n
686 <-> 153, 1674~n
687 <-> 873, 1959~n
688 <-> 1688~n
689 <-> 1125, 1439, 1614~n
690 <-> 1787~n
691 <-> 359, 691, 1945~n
692 <-> 147, 1425, 1426~n
693 <-> 1327, 1329~n
694 <-> 268, 1263~n
695 <-> 695, 1055, 1482~n
696 <-> 780~n
697 <-> 222, 1059~n
698 <-> 1486~n
699 <-> 799~n
700 <-> 1598~n
701 <-> 872, 1103~n
702 <-> 1546, 1853~n
703 <-> 703~n
704 <-> 1533~n
705 <-> 1822~n
706 <-> 1894, 1969~n
707 <-> 210, 729, 909~n
708 <-> 613~n
709 <-> 709~n
710 <-> 1634~n
711 <-> 1863~n
712 <-> 208, 259~n
713 <-> 713~n
714 <-> 511, 1420~n
715 <-> 359, 501~n
716 <-> 623~n
717 <-> 1104, 1193, 1431~n
718 <-> 476~n
719 <-> 27, 1861~n
720 <-> 448, 720, 1374~n
721 <-> 1632, 1721~n
722 <-> 1944~n
723 <-> 723~n
724 <-> 342, 1782~n
725 <-> 1485~n
726 <-> 314, 1451~n
727 <-> 661, 1348~n
728 <-> 1569~n
729 <-> 707~n
730 <-> 658, 1656~n
731 <-> 295~n
732 <-> 59, 1368~n
733 <-> 590, 733~n
734 <-> 552, 638, 1908~n
735 <-> 834~n
736 <-> 983~n
737 <-> 83, 609~n
738 <-> 1189, 1339, 1647~n
739 <-> 947, 1588~n
740 <-> 35, 1883~n
741 <-> 158, 784~n
742 <-> 224~n
743 <-> 240, 420~n
744 <-> 480, 504~n
745 <-> 1604~n
746 <-> 252, 823, 1225~n
747 <-> 680~n
748 <-> 1366, 1474~n
749 <-> 404, 1578~n
750 <-> 31, 271, 313~n
751 <-> 302~n
752 <-> 267~n
753 <-> 292, 1848~n
754 <-> 1394, 1847~n
755 <-> 755~n
756 <-> 1168~n
757 <-> 410, 1352, 1484, 1830~n
758 <-> 852, 1037~n
759 <-> 759~n
760 <-> 608~n
761 <-> 1060, 1272, 1943~n
762 <-> 130, 1533~n
763 <-> 774~n
764 <-> 1270~n
765 <-> 518~n
766 <-> 669, 829, 1477~n
767 <-> 115, 1933, 1935~n
768 <-> 768~n
769 <-> 415, 1475~n
770 <-> 1087, 1370~n
771 <-> 652~n
772 <-> 134, 338, 1102, 1865~n
773 <-> 1678, 1995~n
774 <-> 763, 1712~n
775 <-> 439, 981, 1505~n
776 <-> 776, 1284~n
777 <-> 915, 1192~n
778 <-> 1268, 1269, 1371~n
779 <-> 1101~n
780 <-> 696, 894, 1144, 1339~n
781 <-> 386, 1464~n
782 <-> 357~n
783 <-> 7, 483~n
784 <-> 741, 1149~n
785 <-> 324, 572, 817~n
786 <-> 155, 1460~n
787 <-> 105, 1368~n
788 <-> 196, 1143, 1433~n
789 <-> 124, 944, 1216, 1829~n
790 <-> 46, 790, 1361~n
791 <-> 323, 413, 1564, 1704, 1775~n
792 <-> 144, 1079, 1839, 1860~n
793 <-> 1248, 1880~n
794 <-> 444, 1739, 1862~n
795 <-> 861~n
796 <-> 1997~n
797 <-> 991, 1256, 1282~n
798 <-> 1666~n
799 <-> 699, 895~n
800 <-> 76, 325, 350, 1808~n
801 <-> 34, 442, 1153~n
802 <-> 1035~n
803 <-> 536, 1294~n
804 <-> 348, 982~n
805 <-> 292, 1382~n
806 <-> 84, 1162~n
807 <-> 504~n
808 <-> 165, 808~n
809 <-> 16, 1298, 1542~n
810 <-> 1127~n
811 <-> 1911~n
812 <-> 406, 538~n
813 <-> 8, 1733~n
814 <-> 1140~n
815 <-> 1400, 1596~n
816 <-> 517, 1648~n
817 <-> 57, 307, 785, 1596~n
818 <-> 246, 633~n
819 <-> 1955, 1956~n
820 <-> 820, 1677~n
821 <-> 1440, 1879~n
822 <-> 377, 1032~n
823 <-> 39, 683, 746, 1313~n
824 <-> 334, 566~n
825 <-> 125~n
826 <-> 995~n
827 <-> 827, 1328~n
828 <-> 828, 1215~n
829 <-> 766, 1549~n
830 <-> 0, 256, 319, 345, 576~n
831 <-> 159~n
832 <-> 1320~n
833 <-> 1772, 1891~n
834 <-> 735, 834~n
835 <-> 835, 908~n
836 <-> 1975~n
837 <-> 1491~n
838 <-> 838~n
839 <-> 401, 1068, 1236, 1780, 1849~n
840 <-> 840, 1069~n
841 <-> 1702~n
842 <-> 1669~n
843 <-> 209~n
844 <-> 1940~n
845 <-> 211, 898, 1508, 1708~n
846 <-> 627~n
847 <-> 1037, 1369~n
848 <-> 1237~n
849 <-> 1136, 1800, 1856~n
850 <-> 1116~n
851 <-> 1480, 1759~n
852 <-> 758, 1515~n
853 <-> 1708~n
854 <-> 886~n
855 <-> 1853~n
856 <-> 312, 596, 1485, 1990~n
857 <-> 931, 1697~n
858 <-> 1912~n
859 <-> 155~n
860 <-> 922~n
861 <-> 109, 795, 1971~n
862 <-> 58, 298, 1392~n
863 <-> 276, 1856~n
864 <-> 131, 1690~n
865 <-> 228, 933, 1913~n
866 <-> 900, 1932~n
867 <-> 1700~n
868 <-> 205, 1363~n
869 <-> 1954~n
870 <-> 43~n
871 <-> 1660~n
872 <-> 701, 1226, 1252~n
873 <-> 285, 687~n
874 <-> 1181, 1915~n
875 <-> 407, 613, 1353~n
876 <-> 1218~n
877 <-> 51, 937~n
878 <-> 1733~n
879 <-> 199, 1315~n
880 <-> 208~n
881 <-> 1708~n
882 <-> 1108~n
883 <-> 36, 1682~n
884 <-> 363, 511~n
885 <-> 396, 983~n
886 <-> 622, 854~n
887 <-> 887~n
888 <-> 214, 580, 1272~n
889 <-> 889~n
890 <-> 1387~n
891 <-> 106, 571~n
892 <-> 1433~n
893 <-> 1032, 1638~n
894 <-> 224, 454, 780~n
895 <-> 85, 799~n
896 <-> 371~n
897 <-> 591, 1721~n
898 <-> 845~n
899 <-> 899~n
900 <-> 53, 107, 866~n
901 <-> 279, 486, 1332, 1734~n
902 <-> 207, 1043, 1164, 1491~n
903 <-> 143, 416, 1015, 1722~n
904 <-> 1178~n
905 <-> 226, 358~n
906 <-> 193, 1001~n
907 <-> 964~n
908 <-> 89, 835~n
909 <-> 707, 963~n
910 <-> 556, 910, 1495~n
911 <-> 1203, 1613, 1954~n
912 <-> 1348~n
913 <-> 406~n
914 <-> 75~n
915 <-> 520, 777, 1463~n
916 <-> 916, 1422, 1537, 1799~n
917 <-> 265, 1487, 1824, 1920, 1931~n
918 <-> 1731, 1828~n
919 <-> 1116, 1794~n
920 <-> 275, 920~n
921 <-> 1218~n
922 <-> 860, 1433~n
923 <-> 137, 1455~n
924 <-> 1656~n
925 <-> 1628~n
926 <-> 586, 1846~n
927 <-> 1566~n
928 <-> 395, 1499, 1807~n
929 <-> 593, 1594~n
930 <-> 163~n
931 <-> 857~n
932 <-> 1319~n
933 <-> 865, 1113~n
934 <-> 279~n
935 <-> 218, 403~n
936 <-> 626, 1211, 1242, 1444~n
937 <-> 307, 877~n
938 <-> 1145, 1389~n
939 <-> 1396, 1981~n
940 <-> 940, 1415~n
941 <-> 1255, 1813~n
942 <-> 136, 1206, 1373~n
943 <-> 1540~n
944 <-> 789~n
945 <-> 82, 1500~n
946 <-> 946~n
947 <-> 739~n
948 <-> 676, 1077, 1783, 1985~n
949 <-> 673, 1271~n
950 <-> 211, 564, 1371~n
951 <-> 30, 996, 1546~n
952 <-> 952~n
953 <-> 1558~n
954 <-> 257, 1011, 1365, 1583~n
955 <-> 85, 1104~n
956 <-> 250, 956~n
957 <-> 1096~n
958 <-> 1750~n
959 <-> 1196, 1621~n
960 <-> 251, 304~n
961 <-> 357, 1727~n
962 <-> 962~n
963 <-> 362, 909~n
964 <-> 907, 1227, 1999~n
965 <-> 965~n
966 <-> 1593~n
967 <-> 570, 1159, 1544, 1960~n
968 <-> 76, 1541~n
969 <-> 43, 969~n
970 <-> 343, 1834~n
971 <-> 583~n
972 <-> 1763, 1993~n
973 <-> 1797, 1992~n
974 <-> 1835~n
975 <-> 437, 1790~n
976 <-> 1245, 1279~n
977 <-> 629, 1001~n
978 <-> 1192~n
979 <-> 107, 462, 1730~n
980 <-> 1631~n
981 <-> 311, 775, 1670~n
982 <-> 150, 804, 1561, 1920~n
983 <-> 472, 736, 885~n
984 <-> 115, 1116~n
985 <-> 547, 1829~n
986 <-> 1174~n
987 <-> 40, 386~n
988 <-> 41, 318, 434, 500, 1038~n
989 <-> 1002, 1922~n
990 <-> 1010, 1395~n
991 <-> 797~n
992 <-> 1432~n
993 <-> 530~n
994 <-> 296~n
995 <-> 151, 826, 1434~n
996 <-> 951, 1122~n
997 <-> 30, 1461~n
998 <-> 1372~n
999 <-> 514, 1283, 1386~n
1000 <-> 1499~n
1001 <-> 454, 906, 977~n
1002 <-> 989~n
1003 <-> 519, 1523, 1795~n
1004 <-> 280, 1229, 1946~n
1005 <-> 1534, 1538~n
1006 <-> 328, 1117~n
1007 <-> 158~n
1008 <-> 632, 1869~n
1009 <-> 262, 390, 573~n
1010 <-> 990, 1805~n
1011 <-> 297, 954~n
1012 <-> 1689~n
1013 <-> 130~n
1014 <-> 1903~n
1015 <-> 62, 681, 903, 1249, 1888~n".
cInput = cInput + "1016 <-> 128, 428~n
1017 <-> 1425, 1576, 1740~n
1018 <-> 313, 579, 1845~n
1019 <-> 1903~n
1020 <-> 262, 298~n
1021 <-> 350~n
1022 <-> 1126~n
1023 <-> 1371~n
1024 <-> 1024, 1237~n
1025 <-> 311~n
1026 <-> 1431, 1437~n
1027 <-> 151~n
1028 <-> 197~n
1029 <-> 1029~n
1030 <-> 1194~n
1031 <-> 1031~n
1032 <-> 822, 893~n
1033 <-> 1618, 1795~n
1034 <-> 292, 1822~n
1035 <-> 802, 1667~n
1036 <-> 1214~n
1037 <-> 758, 847~n
1038 <-> 491, 988~n
1039 <-> 36~n
1040 <-> 1584, 1768~n
1041 <-> 266~n
1042 <-> 444, 1104, 1220~n
1043 <-> 4, 110, 902~n
1044 <-> 1633, 1682~n
1045 <-> 296, 1652~n
1046 <-> 1444~n
1047 <-> 1047, 1255~n
1048 <-> 649, 669~n
1049 <-> 1882~n
1050 <-> 1573~n
1051 <-> 481~n
1052 <-> 1149~n
1053 <-> 1441~n
1054 <-> 367, 1928~n
1055 <-> 695~n
1056 <-> 120~n
1057 <-> 1410, 1684~n
1058 <-> 500~n
1059 <-> 697, 1944~n
1060 <-> 333, 761, 1310, 1566~n
1061 <-> 140, 1061, 1492~n
1062 <-> 135, 682, 1062, 1377~n
1063 <-> 1519, 1587, 1858~n
1064 <-> 158, 666~n
1065 <-> 1459, 1467, 1902~n
1066 <-> 1969~n
1067 <-> 1218~n
1068 <-> 839~n
1069 <-> 840, 1574~n
1070 <-> 1814~n
1071 <-> 361~n
1072 <-> 651, 1218~n
1073 <-> 31, 38~n
1074 <-> 1241, 1468~n
1075 <-> 1075~n
1076 <-> 1490, 1634~n
1077 <-> 948, 1111, 1279, 1832~n
1078 <-> 1078~n
1079 <-> 792~n
1080 <-> 1327~n
1081 <-> 679, 1653, 1719~n
1082 <-> 584~n
1083 <-> 121, 197, 1341~n
1084 <-> 678~n
1085 <-> 1576~n
1086 <-> 1540, 1726~n
1087 <-> 770, 1403~n
1088 <-> 160, 1841~n
1089 <-> 198, 1399, 1627~n
1090 <-> 245, 1090~n
1091 <-> 80, 1307~n
1092 <-> 181, 336, 1211~n
1093 <-> 336, 1851~n
1094 <-> 1598, 1659~n
1095 <-> 11, 1337~n
1096 <-> 156, 957, 1103~n
1097 <-> 98, 327~n
1098 <-> 1235, 1261, 1567~n
1099 <-> 122, 1348~n
1100 <-> 241~n
1101 <-> 779, 1253, 1526~n
1102 <-> 772~n
1103 <-> 701, 1096, 1978~n
1104 <-> 717, 955, 1042~n
1105 <-> 170, 317~n
1106 <-> 1911~n
1107 <-> 43~n
1108 <-> 356, 882, 1123, 1991~n
1109 <-> 1120~n
1110 <-> 43, 56~n
1111 <-> 1077, 1547~n
1112 <-> 417~n
1113 <-> 270, 933~n
1114 <-> 188~n
1115 <-> 207, 547~n
1116 <-> 850, 919, 984, 1202~n
1117 <-> 375, 1006, 1423, 1727~n
1118 <-> 1855~n
1119 <-> 497, 1736~n
1120 <-> 1109, 1829~n
1121 <-> 260, 568, 1151, 1155, 1644~n
1122 <-> 996~n
1123 <-> 1108~n
1124 <-> 618, 1204, 1610, 1630, 1844~n
1125 <-> 87, 689, 1228~n
1126 <-> 173, 241, 625, 1022, 1461~n
1127 <-> 492, 669, 810~n
1128 <-> 302, 1128~n
1129 <-> 413~n
1130 <-> 508, 1852~n
1131 <-> 1918~n
1132 <-> 1413, 1527~n
1133 <-> 1133, 1654~n
1134 <-> 55, 482~n
1135 <-> 400~n
1136 <-> 849~n
1137 <-> 454, 648, 1646~n
1138 <-> 274, 307~n
1139 <-> 383, 1951~n
1140 <-> 814, 1140~n
1141 <-> 1141~n
1142 <-> 534, 1722~n
1143 <-> 121, 788~n
1144 <-> 98, 780~n
1145 <-> 938, 1145~n
1146 <-> 1242~n
1147 <-> 238, 1680, 1699~n
1148 <-> 1725~n
1149 <-> 784, 1052~n
1150 <-> 229, 1970~n
1151 <-> 1121, 1379~n
1152 <-> 1575~n
1153 <-> 801, 1288~n
1154 <-> 291~n
1155 <-> 1121, 1785~n
1156 <-> 291, 640~n
1157 <-> 565, 1157~n
1158 <-> 499, 1158~n
1159 <-> 967~n
1160 <-> 683~n
1161 <-> 281~n
1162 <-> 806, 1555, 1616~n
1163 <-> 1268~n
1164 <-> 902~n
1165 <-> 234, 429, 671~n
1166 <-> 1596~n
1167 <-> 402~n
1168 <-> 651, 670, 756~n
1169 <-> 546~n
1170 <-> 1170, 1478, 1877~n
1171 <-> 1171~n
1172 <-> 1224, 1856~n
1173 <-> 1367, 1584, 1820~n
1174 <-> 271, 345, 398, 986, 1295~n
1175 <-> 356, 1890~n
1176 <-> 1936, 1961~n
1177 <-> 24, 476, 1742~n
1178 <-> 904, 1280~n
1179 <-> 375~n
1180 <-> 175, 496~n
1181 <-> 874~n
1182 <-> 1182, 1184~n
1183 <-> 64, 1736~n
1184 <-> 1182~n
1185 <-> 72, 244~n
1186 <-> 501~n
1187 <-> 72~n
1188 <-> 377~n
1189 <-> 738~n
1190 <-> 662, 1987~n
1191 <-> 52~n
1192 <-> 777, 978~n
1193 <-> 717~n
1194 <-> 1030, 1272~n
1195 <-> 112, 183~n
1196 <-> 13, 959, 1308, 1691~n
1197 <-> 1197~n
1198 <-> 390, 1729~n
1199 <-> 1242~n
1200 <-> 1815~n
1201 <-> 672, 1433~n
1202 <-> 1116, 1691~n
1203 <-> 911~n
1204 <-> 1124, 1420~n
1205 <-> 1428, 1942~n
1206 <-> 488, 942, 1603, 1608~n
1207 <-> 545~n
1208 <-> 1583~n
1209 <-> 596~n
1210 <-> 1580~n
1211 <-> 936, 1092~n
1212 <-> 1317~n
1213 <-> 1213~n
1214 <-> 1036, 1391, 1395~n
1215 <-> 828~n
1216 <-> 789~n
1217 <-> 1241~n
1218 <-> 876, 921, 1067, 1072~n
1219 <-> 236~n
1220 <-> 1042~n
1221 <-> 1531, 1669~n
1222 <-> 216, 668, 1222, 1773, 1884~n
1223 <-> 330, 1591~n
1224 <-> 1172, 1260, 1677~n
1225 <-> 746~n
1226 <-> 872~n
1227 <-> 62, 964~n
1228 <-> 423, 1125~n
1229 <-> 528, 1004, 1667~n
1230 <-> 70, 347~n
1231 <-> 1231, 1955~n
1232 <-> 232, 456~n
1233 <-> 17, 644~n
1234 <-> 1239, 1737~n
1235 <-> 455, 1098, 1910~n
1236 <-> 52, 839~n
1237 <-> 848, 1024~n
1238 <-> 563, 1824~n
1239 <-> 29, 1234~n
1240 <-> 1240~n
1241 <-> 1074, 1217~n
1242 <-> 936, 1146, 1199~n
1243 <-> 232, 1298~n
1244 <-> 193~n
1245 <-> 976, 1321~n
1246 <-> 61, 1469~n
1247 <-> 1247~n
1248 <-> 793~n
1249 <-> 594, 1015~n
1250 <-> 415~n
1251 <-> 1732~n
1252 <-> 872, 1454, 1925~n
1253 <-> 1101, 1315~n
1254 <-> 510~n
1255 <-> 941, 1047~n
1256 <-> 797~n
1257 <-> 629, 1663, 1881~n
1258 <-> 429, 1740~n
1259 <-> 634~n
1260 <-> 1224~n
1261 <-> 376, 541, 1098, 1624~n
1262 <-> 1783~n
1263 <-> 694~n
1264 <-> 603, 1495, 1504~n
1265 <-> 1868~n
1266 <-> 1266, 1553~n
1267 <-> 436, 1403~n
1268 <-> 778, 1163, 1900~n
1269 <-> 778~n
1270 <-> 215, 524, 764~n
1271 <-> 949, 1271, 1329~n
1272 <-> 434, 761, 888, 1194~n
1273 <-> 1565, 1605~n
1274 <-> 566, 1612, 1634, 1878~n
1275 <-> 269, 498, 1484, 1537~n
1276 <-> 1876~n
1277 <-> 1819~n
1278 <-> 73~n
1279 <-> 284, 976, 1077, 1657~n
1280 <-> 398, 1178, 1755~n
1281 <-> 1281~n
1282 <-> 652, 659, 797, 1463~n
1283 <-> 999~n
1284 <-> 776~n
1285 <-> 525~n
1286 <-> 230, 362~n
1287 <-> 1287, 1882~n
1288 <-> 1153~n
1289 <-> 613~n
1290 <-> 1432~n
1291 <-> 464~n
1292 <-> 1605~n
1293 <-> 1293~n
1294 <-> 148, 803, 1443~n
1295 <-> 1174~n
1296 <-> 1296, 1592~n
1297 <-> 109, 1792~n
1298 <-> 93, 809, 1243~n
1299 <-> 1299, 1975~n
1300 <-> 1441~n
1301 <-> 1793, 1856~n
1302 <-> 335~n
1303 <-> 614, 1307, 1941~n
1304 <-> 1847~n
1305 <-> 186~n
1306 <-> 1306, 1765~n
1307 <-> 265, 310, 1091, 1303~n
1308 <-> 1196, 1916~n
1309 <-> 1365, 1831~n
1310 <-> 1060~n
1311 <-> 1639~n
1312 <-> 127, 1481, 1750~n
1313 <-> 592, 823~n
1314 <-> 1552, 1863~n
1315 <-> 94, 879, 1253~n
1316 <-> 326~n
1317 <-> 1212, 1936~n
1318 <-> 172, 1986~n
1319 <-> 932, 1319~n
1320 <-> 832, 1512~n
1321 <-> 138, 1245~n
1322 <-> 434, 1439~n
1323 <-> 1323, 1715~n
1324 <-> 432~n
1325 <-> 1325, 1445~n
1326 <-> 1572~n
1327 <-> 693, 1080, 1494, 1641~n
1328 <-> 827~n
1329 <-> 182, 693, 1271~n
1330 <-> 174~n
1331 <-> 1331~n
1332 <-> 901~n
1333 <-> 103, 1333, 1404~n
1334 <-> 193, 1615~n
1335 <-> 1335, 1516~n
1336 <-> 569~n
1337 <-> 600, 1095~n
1338 <-> 258~n
1339 <-> 738, 780, 1662~n
1340 <-> 462~n
1341 <-> 1083~n
1342 <-> 1662~n
1343 <-> 130, 1615~n
1344 <-> 242, 1344~n
1345 <-> 527, 1600~n
1346 <-> 647~n
1347 <-> 48~n
1348 <-> 727, 912, 1099, 1413~n
1349 <-> 1506~n
1350 <-> 1544~n
1351 <-> 301, 1351~n
1352 <-> 647, 757, 1683~n
1353 <-> 875~n
1354 <-> 1432, 1771~n
1355 <-> 111, 213, 600, 1818, 1915~n
1356 <-> 604, 1506~n
1357 <-> 140~n
1358 <-> 1990~n
1359 <-> 1706~n
1360 <-> 484, 650~n
1361 <-> 790, 1633~n
1362 <-> 255~n
1363 <-> 868~n
1364 <-> 7, 172, 1364~n
1365 <-> 422, 954, 1309, 1586~n
1366 <-> 748~n
1367 <-> 1173~n
1368 <-> 732, 787~n
1369 <-> 337, 847, 1682~n
1370 <-> 770~n
1371 <-> 585, 778, 950, 1023, 1821~n
1372 <-> 998, 1372, 1957~n
1373 <-> 942~n
1374 <-> 720~n
1375 <-> 39, 232, 1871~n
1376 <-> 1911~n
1377 <-> 322, 1062~n
1378 <-> 504~n
1379 <-> 1151, 1939~n
1380 <-> 1380~n
1381 <-> 1787~n
1382 <-> 805~n
1383 <-> 174, 1636~n
1384 <-> 317, 1384~n
1385 <-> 1781~n
1386 <-> 12, 999, 1843~n
1387 <-> 486, 890~n
1388 <-> 20~n
1389 <-> 938~n
1390 <-> 1390, 1623~n
1391 <-> 1214~n
1392 <-> 862, 1669~n
1393 <-> 300, 340, 1817, 1841~n
1394 <-> 467, 754~n
1395 <-> 990, 1214, 1395~n
1396 <-> 79, 939, 1881~n
1397 <-> 464, 495, 1991~n
1398 <-> 1398, 1642, 1686~n
1399 <-> 191, 1089, 1643~n
1400 <-> 815~n
1401 <-> 146, 555~n
1402 <-> 639~n
1403 <-> 655, 1087, 1267, 1700~n
1404 <-> 1333~n
1405 <-> 349, 1638, 1746~n
1406 <-> 411, 460, 1406~n
1407 <-> 1407, 1459, 1688~n
1408 <-> 1534~n
1409 <-> 1731~n
1410 <-> 22, 1057, 1734~n
1411 <-> 210, 421, 1783~n
1412 <-> 1631~n
1413 <-> 1132, 1348~n
1414 <-> 419, 1680~n
1415 <-> 684, 940~n
1416 <-> 68~n
1417 <-> 1809~n
1418 <-> 448~n
1419 <-> 2~n
1420 <-> 714, 1204~n
1421 <-> 72, 1897~n
1422 <-> 916~n
1423 <-> 1117~n
1424 <-> 1745, 1749~n
1425 <-> 692, 1017~n
1426 <-> 692, 1565~n
1427 <-> 445, 1488, 1810~n
1428 <-> 425, 1205, 1428~n
1429 <-> 391, 1934~n
1430 <-> 67, 1690~n
1431 <-> 60, 202, 717, 1026, 1558~n
1432 <-> 992, 1290, 1354~n
1433 <-> 788, 892, 922, 1201~n
1434 <-> 238, 510, 995~n
1435 <-> 84~n
1436 <-> 331~n
1437 <-> 1026~n
1438 <-> 300~n
1439 <-> 689, 1322~n
1440 <-> 821, 1573~n
1441 <-> 1053, 1300, 1505, 1967~n
1442 <-> 338~n
1443 <-> 1294, 1696~n
1444 <-> 936, 1046~n
1445 <-> 117, 1325~n
1446 <-> 343~n
1447 <-> 1465~n
1448 <-> 1520~n
1449 <-> 399, 1674~n
1450 <-> 1897~n
1451 <-> 726, 1694~n
1452 <-> 299~n
1453 <-> 660, 1547~n
1454 <-> 1252, 1551, 1762~n
1455 <-> 923~n
1456 <-> 290, 1456~n
1457 <-> 1457~n
1458 <-> 1626, 1645~n
1459 <-> 1065, 1407~n
1460 <-> 786~n
1461 <-> 997, 1126, 1661~n
1462 <-> 1596~n
1463 <-> 915, 1282~n
1464 <-> 485, 781~n
1465 <-> 246, 1447, 1613, 1797~n".
cInput = cInput + "1466 <-> 143~n
1467 <-> 1065~n
1468 <-> 1074, 1919~n
1469 <-> 1246~n
1470 <-> 74, 273~n
1471 <-> 100, 331, 664, 1952~n
1472 <-> 367~n
1473 <-> 1473~n
1474 <-> 209, 220, 532, 748, 1760~n
1475 <-> 769, 1921~n
1476 <-> 91, 1487~n
1477 <-> 766, 1711, 1729, 1766~n
1478 <-> 1170~n
1479 <-> 111~n
1480 <-> 851~n
1481 <-> 1312, 1481~n
1482 <-> 695~n
1483 <-> 463, 1599~n
1484 <-> 535, 757, 1275~n
1485 <-> 725, 856, 1485~n
1486 <-> 164, 698, 1756~n
1487 <-> 155, 917, 1476, 1772~n
1488 <-> 597, 1427~n
1489 <-> 675~n
1490 <-> 1076, 1672, 1922~n
1491 <-> 123, 606, 837, 902~n
1492 <-> 1061~n
1493 <-> 640~n
1494 <-> 351, 1327~n
1495 <-> 910, 1264~n
1496 <-> 1567~n
1497 <-> 1497~n
1498 <-> 1723~n
1499 <-> 928, 1000, 1995~n
1500 <-> 321, 462, 945~n
1501 <-> 32~n
1502 <-> 330, 384, 1707~n
1503 <-> 203, 1687~n
1504 <-> 1264~n
1505 <-> 775, 1441, 1917~n
1506 <-> 1349, 1356~n
1507 <-> 301, 537~n
1508 <-> 845~n
1509 <-> 1981~n
1510 <-> 440~n
1511 <-> 591~n
1512 <-> 644, 1320~n
1513 <-> 1879~n
1514 <-> 502, 1705~n
1515 <-> 852~n
1516 <-> 129, 1335, 1827~n
1517 <-> 551, 1752~n
1518 <-> 1697, 1714, 1873~n
1519 <-> 1063, 1519, 1898~n
1520 <-> 137, 597, 1448~n
1521 <-> 217~n
1522 <-> 545, 1522, 1801~n
1523 <-> 1003~n
1524 <-> 92~n
1525 <-> 306~n
1526 <-> 1101~n
1527 <-> 1132~n
1528 <-> 1691~n
1529 <-> 1630~n
1530 <-> 303~n
1531 <-> 1221~n
1532 <-> 1532~n
1533 <-> 704, 762~n
1534 <-> 1005, 1408, 1966~n
1535 <-> 550, 1535~n
1536 <-> 378, 446, 470~n
1537 <-> 916, 1275~n
1538 <-> 1005, 1619~n
1539 <-> 49, 1720~n
1540 <-> 943, 1086~n
1541 <-> 968, 1777~n
1542 <-> 809~n
1543 <-> 464~n
1544 <-> 967, 1350~n
1545 <-> 253, 1618~n
1546 <-> 702, 951~n
1547 <-> 1111, 1453~n
1548 <-> 460~n
1549 <-> 829~n
1550 <-> 1758~n
1551 <-> 346, 378, 593, 1454~n
1552 <-> 1314, 1552~n
1553 <-> 1266~n
1554 <-> 1554~n
1555 <-> 1162, 1673~n
1556 <-> 616~n
1557 <-> 613~n
1558 <-> 953, 1431~n
1559 <-> 630, 1879~n
1560 <-> 488, 1901~n
1561 <-> 206, 982~n
1562 <-> 9~n
1563 <-> 1715~n
1564 <-> 61, 791~n
1565 <-> 1273, 1426~n
1566 <-> 927, 1060~n
1567 <-> 1098, 1496~n
1568 <-> 394, 1568, 1999~n
1569 <-> 728, 1591~n
1570 <-> 276, 1602~n
1571 <-> 1582~n
1572 <-> 1326, 1572, 1741~n
1573 <-> 48, 1050, 1440, 1817~n
1574 <-> 1069~n
1575 <-> 575, 1152, 1605, 1886~n
1576 <-> 677, 1017, 1085~n
1577 <-> 1953~n
1578 <-> 749, 1578~n
1579 <-> 1652, 1974, 1992~n
1580 <-> 137, 1210~n
1581 <-> 1696~n
1582 <-> 243, 1571~n
1583 <-> 954, 1208~n
1584 <-> 606, 1040, 1173~n
1585 <-> 102, 648~n
1586 <-> 152, 1365~n
1587 <-> 1063, 1972~n
1588 <-> 739, 1990~n
1589 <-> 141, 656, 1589~n
1590 <-> 1590~n
1591 <-> 1223, 1569~n
1592 <-> 1296~n
1593 <-> 365, 515, 966, 1698~n
1594 <-> 929, 1826~n
1595 <-> 1595~n
1596 <-> 137, 815, 817, 1166, 1462~n
1597 <-> 1969~n
1598 <-> 700, 1094~n
1599 <-> 119, 1483, 1671~n
1600 <-> 1345~n
1601 <-> 1601, 1731~n
1602 <-> 1570~n
1603 <-> 1206, 1984~n
1604 <-> 215, 745~n
1605 <-> 1273, 1292, 1575~n
1606 <-> 1606~n
1607 <-> 1649~n
1608 <-> 530, 1206~n
1609 <-> 199~n
1610 <-> 1124, 1675~n
1611 <-> 1611~n
1612 <-> 1274, 1923~n
1613 <-> 911, 1465~n
1614 <-> 194, 689~n
1615 <-> 602, 1334, 1343~n
1616 <-> 52, 1162~n
1617 <-> 1956~n
1618 <-> 613, 1033, 1545~n
1619 <-> 1538~n
1620 <-> 632, 1620~n
1621 <-> 959~n
1622 <-> 636, 663~n
1623 <-> 44, 674, 1390~n
1624 <-> 1261~n
1625 <-> 119~n
1626 <-> 1458~n
1627 <-> 1089, 1627~n
1628 <-> 450, 925, 1628~n
1629 <-> 142~n
1630 <-> 1124, 1529~n
1631 <-> 223, 980, 1412, 1788~n
1632 <-> 438, 721~n
1633 <-> 1044, 1361~n
1634 <-> 710, 1076, 1274~n
1635 <-> 378, 440~n
1636 <-> 504, 1383, 1988~n
1637 <-> 46, 347~n
1638 <-> 893, 1405~n
1639 <-> 26, 392, 1311, 1639~n
1640 <-> 1865~n
1641 <-> 1327~n
1642 <-> 1398, 1723~n
1643 <-> 1399~n
1644 <-> 186, 1121, 1644, 1804~n
1645 <-> 124, 1458~n
1646 <-> 1137, 1859~n
1647 <-> 738~n
1648 <-> 430, 816~n
1649 <-> 619, 1607~n
1650 <-> 14, 542~n
1651 <-> 6, 1970~n
1652 <-> 1045, 1579~n
1653 <-> 1081, 1742~n
1654 <-> 1133~n
1655 <-> 1924~n
1656 <-> 90, 730, 924~n
1657 <-> 1279~n
1658 <-> 353, 1693~n
1659 <-> 16, 1094~n
1660 <-> 195, 871, 1991~n
1661 <-> 399, 465, 1461~n
1662 <-> 1339, 1342~n
1663 <-> 315, 1257~n
1664 <-> 139~n
1665 <-> 1766~n
1666 <-> 198, 798~n
1667 <-> 552, 1035, 1229~n
1668 <-> 364~n
1669 <-> 654, 842, 1221, 1392~n
1670 <-> 981~n
1671 <-> 1599~n
1672 <-> 544, 627, 1490~n
1673 <-> 167, 347, 1555~n
1674 <-> 68, 278, 376, 686, 1449~n
1675 <-> 459, 1610, 1812~n
1676 <-> 616, 1878~n
1677 <-> 820, 1224~n
1678 <-> 433, 633, 773~n
1679 <-> 108~n
1680 <-> 1147, 1414~n
1681 <-> 237~n
1682 <-> 436, 883, 1044, 1369~n
1683 <-> 1352~n
1684 <-> 1057, 1770~n
1685 <-> 176~n
1686 <-> 369, 1398, 1751, 1906~n
1687 <-> 363, 1503~n
1688 <-> 688, 1407, 1712~n
1689 <-> 1012, 1689~n
1690 <-> 864, 1430~n
1691 <-> 77, 1196, 1202, 1528, 1973~n
1692 <-> 1692~n
1693 <-> 1658~n
1694 <-> 1451, 1751, 1870~n
1695 <-> 685, 1695~n
1696 <-> 1443, 1581~n
1697 <-> 501, 857, 1518~n
1698 <-> 1593~n
1699 <-> 92, 1147, 1720~n
1700 <-> 867, 1403~n
1701 <-> 225, 394~n
1702 <-> 841, 1709~n
1703 <-> 600~n
1704 <-> 128, 237, 791, 1894~n
1705 <-> 479, 1514~n
1706 <-> 1359, 1706~n
1707 <-> 657, 1502~n
1708 <-> 845, 853, 881, 1910~n
1709 <-> 668, 1702~n
1710 <-> 113~n
1711 <-> 1477~n
1712 <-> 774, 1688~n
1713 <-> 1806~n
1714 <-> 490, 1518~n
1715 <-> 1323, 1563~n
1716 <-> 17~n
1717 <-> 550~n
1718 <-> 215~n
1719 <-> 406, 1081~n
1720 <-> 1539, 1699, 1935~n
1721 <-> 325, 721, 897~n
1722 <-> 293, 903, 1142~n
1723 <-> 1498, 1642~n
1724 <-> 1724, 1836~n
1725 <-> 237, 1148~n
1726 <-> 1086, 1835~n
1727 <-> 961, 1117~n
1728 <-> 306, 595~n
1729 <-> 547, 1198, 1477~n
1730 <-> 513, 979, 1753~n
1731 <-> 918, 1409, 1601~n
1732 <-> 1251, 1732~n
1733 <-> 563, 813, 878, 1850~n
1734 <-> 581, 628, 901, 1410~n
1735 <-> 484~n
1736 <-> 1119, 1183~n
1737 <-> 1234, 1860~n
1738 <-> 1738~n
1739 <-> 794~n
1740 <-> 1017, 1258~n
1741 <-> 1572~n
1742 <-> 1177, 1653~n
1743 <-> 677~n
1744 <-> 282, 440, 631~n
1745 <-> 45, 1424~n
1746 <-> 63, 1405~n
1747 <-> 1992~n
1748 <-> 1878~n
1749 <-> 1424, 1753~n
1750 <-> 958, 1312~n
1751 <-> 1686, 1694~n
1752 <-> 1517~n
1753 <-> 1730, 1749~n
1754 <-> 174~n
1755 <-> 164, 303, 1280~n
1756 <-> 1486, 1952, 1966~n
1757 <-> 579~n
1758 <-> 500, 1550~n
1759 <-> 851, 1759~n
1760 <-> 1474~n
1761 <-> 248, 1761~n
1762 <-> 1454~n
1763 <-> 15, 472, 972~n
1764 <-> 455~n
1765 <-> 1306~n
1766 <-> 1477, 1665~n
1767 <-> 108~n
1768 <-> 1040~n
1769 <-> 1769~n
1770 <-> 1684~n
1771 <-> 1354, 1842~n
1772 <-> 833, 1487~n
1773 <-> 1222~n
1774 <-> 1931~n
1775 <-> 405, 791~n
1776 <-> 589, 1776~n
1777 <-> 607, 1541~n
1778 <-> 1778~n
1779 <-> 73, 608~n
1780 <-> 839~n
1781 <-> 428, 1385~n
1782 <-> 724, 1805~n
1783 <-> 948, 1262, 1411~n
1784 <-> 1784~n
1785 <-> 1155~n
1786 <-> 464~n
1787 <-> 690, 1381, 1825~n
1788 <-> 361, 662, 1631~n
1789 <-> 231, 1834~n
1790 <-> 39, 975~n
1791 <-> 263, 1988~n
1792 <-> 1297~n
1793 <-> 218, 1301~n
1794 <-> 104, 190, 919~n
1795 <-> 1003, 1033~n
1796 <-> 1796, 1904~n
1797 <-> 595, 973, 1465~n
1798 <-> 143, 529~n
1799 <-> 916~n
1800 <-> 849, 1816~n
1801 <-> 1522~n
1802 <-> 259~n
1803 <-> 218~n
1804 <-> 1644~n
1805 <-> 42, 364, 1010, 1782~n
1806 <-> 1713, 1954~n
1807 <-> 928~n
1808 <-> 800~n
1809 <-> 546, 1417, 1851~n
1810 <-> 1427, 1974~n
1811 <-> 1966~n
1812 <-> 1675~n
1813 <-> 941~n
1814 <-> 30, 1070~n
1815 <-> 244, 1200, 1965~n
1816 <-> 264, 1800~n
1817 <-> 425, 1393, 1573~n
1818 <-> 1355~n
1819 <-> 72, 1277~n
1820 <-> 1173~n
1821 <-> 1371~n
1822 <-> 354, 705, 1034~n
1823 <-> 659~n
1824 <-> 917, 1238~n
1825 <-> 1787, 1825~n
1826 <-> 1594~n
1827 <-> 1516~n
1828 <-> 918~n
1829 <-> 789, 985, 1120, 1980~n
1830 <-> 277, 757~n
1831 <-> 1309~n
1832 <-> 1077~n
1833 <-> 551~n
1834 <-> 970, 1789~n
1835 <-> 974, 1726, 1835~n
1836 <-> 221, 1724~n
1837 <-> 96, 578~n
1838 <-> 373~n
1839 <-> 792~n
1840 <-> 1840~n
1841 <-> 1088, 1393~n
1842 <-> 1771, 1842~n
1843 <-> 1386~n
1844 <-> 1124~n
1845 <-> 1018~n
1846 <-> 926~n
1847 <-> 754, 1304~n
1848 <-> 212, 492, 753~n
1849 <-> 839~n
1850 <-> 525, 1733~n
1851 <-> 1093, 1809~n
1852 <-> 1130, 1852~n
1853 <-> 702, 855~n
1854 <-> 1946~n
1855 <-> 267, 1118~n
1856 <-> 637, 849, 863, 1172, 1301~n
1857 <-> 74, 662~n
1858 <-> 1063~n
1859 <-> 1646~n
1860 <-> 792, 1737~n
1861 <-> 6, 183, 362, 719~n
1862 <-> 125, 794~n
1863 <-> 562, 711, 1314~n
1864 <-> 457~n
1865 <-> 438, 772, 1640~n
1866 <-> 142, 380, 582~n
1867 <-> 1867~n
1868 <-> 444, 1265~n
1869 <-> 1008~n
1870 <-> 1694~n
1871 <-> 226, 1375~n
1872 <-> 177, 595~n
1873 <-> 1518~n
1874 <-> 423~n
1875 <-> 1924~n
1876 <-> 1276, 1876~n
1877 <-> 1170, 1899~n
1878 <-> 282, 1274, 1676, 1748~n
1879 <-> 821, 1513, 1559~n
1880 <-> 793, 1974~n
1881 <-> 1257, 1396~n
1882 <-> 1049, 1287~n
1883 <-> 68, 740~n
1884 <-> 1222~n
1885 <-> 1934~n
1886 <-> 1575~n
1887 <-> 1966~n
1888 <-> 1015~n
1889 <-> 428~n
1890 <-> 1175~n
1891 <-> 833~n
1892 <-> 129~n
1893 <-> 84~n
1894 <-> 217, 706, 1704~n
1895 <-> 422~n
1896 <-> 1896~n
1897 <-> 393, 1421, 1450~n
1898 <-> 1519~n
1899 <-> 1877~n
1900 <-> 316, 1268~n
1901 <-> 1560, 1943~n
1902 <-> 1065, 1959~n
1903 <-> 1014, 1019, 1903~n
1904 <-> 1796~n
1905 <-> 1905~n
1906 <-> 1686~n
1907 <-> 347~n
1908 <-> 734, 1938~n
1909 <-> 372, 645~n
1910 <-> 1235, 1708~n
1911 <-> 811, 1106, 1376, 1911~n
1912 <-> 184, 420, 858~n
1913 <-> 126, 865~n
1914 <-> 479~n
1915 <-> 874, 1355, 1915~n
1916 <-> 1308~n
1917 <-> 1505~n
1918 <-> 13, 116, 294, 1131, 1946~n
1919 <-> 370, 1468~n
1920 <-> 917, 982~n
1921 <-> 553, 576, 1475~n
1922 <-> 989, 1490~n
1923 <-> 1612~n
1924 <-> 1655, 1875, 1935~n
1925 <-> 505, 1252~n
1926 <-> 1926~n
1927 <-> 256~n
1928 <-> 19, 247, 1054~n
1929 <-> 1975~n
1930 <-> 556~n
1931 <-> 187, 917, 1774~n
1932 <-> 866~n
1933 <-> 767, 1933~n
1934 <-> 1429, 1885, 1934~n
1935 <-> 381, 767, 1720, 1924~n
1936 <-> 583, 1176, 1317, 1936~n
1937 <-> 249, 1937~n
1938 <-> 1908~n
1939 <-> 157, 1379~n
1940 <-> 844, 1940~n
1941 <-> 1303~n
1942 <-> 1205, 1979~n
1943 <-> 761, 1901~n
1944 <-> 507, 722, 1059~n
1945 <-> 691~n
1946 <-> 457, 1004, 1854, 1918~n
1947 <-> 10~n
1948 <-> 494~n
1949 <-> 1949~n
1950 <-> 672~n
1951 <-> 1139, 1951~n
1952 <-> 122, 1471, 1756~n
1953 <-> 1577, 1953~n
1954 <-> 869, 911, 1806~n
1955 <-> 666, 819, 1231~n
1956 <-> 819, 1617~n
1957 <-> 1372~n
1958 <-> 629~n
1959 <-> 687, 1902~n
1960 <-> 492, 967~n
1961 <-> 561, 1176~n
1962 <-> 471, 1964~n
1963 <-> 612~n
1964 <-> 1962~n
1965 <-> 1815~n
1966 <-> 1534, 1756, 1811, 1887~n
1967 <-> 1441~n
1968 <-> 263~n
1969 <-> 706, 1066, 1597~n
1970 <-> 1150, 1651~n
1971 <-> 861~n
1972 <-> 1587~n
1973 <-> 1691~n
1974 <-> 60, 1579, 1810, 1880~n
1975 <-> 25, 138, 836, 1299, 1929~n
1976 <-> 675~n
1977 <-> 402, 630~n
1978 <-> 1103~n
1979 <-> 66, 1942~n
1980 <-> 382, 1829~n
1981 <-> 939, 1509~n
1982 <-> 427, 569~n
1983 <-> 638~n
1984 <-> 1603~n
1985 <-> 948~n
1986 <-> 1318~n
1987 <-> 467, 1190~n
1988 <-> 473, 1636, 1791~n
1989 <-> 462~n
1990 <-> 856, 1358, 1588~n
1991 <-> 1108, 1397, 1660~n
1992 <-> 235, 973, 1579, 1747~n
1993 <-> 972~n
1994 <-> 42, 93, 593~n
1995 <-> 773, 1499~n
1996 <-> 95, 1996~n
1997 <-> 510, 796~n
1998 <-> 626~n
1999 <-> 964, 1568".

FUNCTION countRel RETURNS LOGICAL (piPgm AS INTEGER) FORWARD.

DEFINE VARIABLE cRel AS CHARACTER   NO-UNDO.
DEFINE VARIABLE iRel AS INTEGER     NO-UNDO.
DEFINE VARIABLE iFrom AS INTEGER     NO-UNDO.
DEFINE VARIABLE cTo AS CHARACTER   NO-UNDO.
DEFINE VARIABLE iTo AS INTEGER   NO-UNDO.
DEFINE VARIABLE i AS INTEGER     NO-UNDO.

DEFINE TEMP-TABLE ttRel
    FIELD ifrom AS INTEGER
    FIELD ito   AS INTEGER
    FIELD ldone AS LOGICAL
    INDEX ix IS PRIMARY ifrom ito
    .

/* load the relations */
DO iRel = 1 TO NUM-ENTRIES(cInput, "~n"):
    cRel = ENTRY(iRel, cInput, "~n").
    iFrom = INTEGER(ENTRY(1, cRel, " ")).
    cTo = REPLACE(SUBSTRING(cRel, INDEX(cRel, ">") + 2), " ", "").
    DO i = 1 TO NUM-ENTRIES(cTo):
        iTo = INTEGER(ENTRY(i, cTo)).
        IF NOT CAN-FIND(ttRel WHERE ttrel.ifrom = iFrom AND ttrel.ito = iTo) THEN DO:
            CREATE ttrel.
            ASSIGN
                ttrel.ifrom = iFrom
                ttrel.ito   = iTo.
        END.
    END.
END.

/* count the groups */
DEFINE VARIABLE iCount AS INTEGER   NO-UNDO.
FIND FIRST ttRel WHERE ttRel.ldone = NO NO-ERROR.
DO WHILE AVAILABLE ttRel:
    iCount = iCount + 1.
    countRel(ttRel.ifrom).
    FIND FIRST ttRel WHERE ttRel.ldone = NO NO-ERROR.
END.
MESSAGE iCount
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

FUNCTION countRel RETURNS LOGICAL (piPgm AS INTEGER):
    DEFINE VARIABLE iCount AS INTEGER INITIAL 1    NO-UNDO.
    DEFINE BUFFER ttRel FOR ttRel.
    DEFINE BUFFER bttRel FOR ttRel.
    FOR EACH ttRel WHERE ttRel.ifrom = piPgm AND ttRel.ldone = NO:
        ttRel.ldone = YES.
        FIND bttRel WHERE bttRel.ifrom = ttRel.ito AND bttRel.ito = ttRel.ifrom NO-ERROR.
        IF AVAILABLE bttRel THEN
            bttRel.ldone = YES.
        countRel(ttRel.ifrom).
        countRel(ttRel.ito).
    END.
    RETURN YES.
END FUNCTION.