1: #!/usr/bin/perl
2:
3: # This file is automatically generated at Tue Oct 30 12:56:15 2001 by makecheck.pl
4: sub checkit {my $nf=''; my $a; my ($uword,$words)=@_;
5:
6: #-------------------------------------
7:
8:
9: $_=$uword;
10: if ((s/σρ$//) && (m/$/) && ($a=$$words{$_}) && ($a=~m/C/))
11: {
12: $nf.="$_/C ";
13: }
14:
15: #-------------------------------------
16:
17:
18: $_=$uword;
19: if ((s/μ$/τψ/) && (m/[^ϊσ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
20: {
21: $nf.="$_/L ";
22: }
23:
24: #-------------------------------------
25:
26:
27: $_=$uword;
28: if ((s/μα$/τψ/) && (m/[^σ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
29: {
30: $nf.="$_/L ";
31: }
32:
33: #-------------------------------------
34:
35:
36: $_=$uword;
37: if ((s/μο$/τψ/) && (m/[^σ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
38: {
39: $nf.="$_/L ";
40: }
41:
42: #-------------------------------------
43:
44:
45: $_=$uword;
46: if ((s/μι$/τψ/) && (m/[^σ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
47: {
48: $nf.="$_/L ";
49: }
50:
51: #-------------------------------------
52:
53:
54: $_=$uword;
55: if ((s/μσρ$/τψσρ/) && (m/[^ϊσ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
56: {
57: $nf.="$_/L ";
58: }
59:
60: #-------------------------------------
61:
62:
63: $_=$uword;
64: if ((s/μασψ$/τψσρ/) && (m/[^σ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
65: {
66: $nf.="$_/L ";
67: }
68:
69: #-------------------------------------
70:
71:
72: $_=$uword;
73: if ((s/μοσψ$/τψσρ/) && (m/[^σ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
74: {
75: $nf.="$_/L ";
76: }
77:
78: #-------------------------------------
79:
80:
81: $_=$uword;
82: if ((s/μισψ$/τψσρ/) && (m/[^σ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
83: {
84: $nf.="$_/L ";
85: }
86:
87: #-------------------------------------
88:
89:
90: $_=$uword;
91: if ((s/μ$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
92: {
93: $nf.="$_/L ";
94: }
95:
96: #-------------------------------------
97:
98:
99: $_=$uword;
100: if ((s/εμ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
101: {
102: $nf.="$_/L ";
103: }
104:
105: #-------------------------------------
106:
107:
108: $_=$uword;
109: if ((s/μα$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
110: {
111: $nf.="$_/L ";
112: }
113:
114: #-------------------------------------
115:
116:
117: $_=$uword;
118: if ((s/μα$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
119: {
120: $nf.="$_/L ";
121: }
122:
123: #-------------------------------------
124:
125:
126: $_=$uword;
127: if ((s/μο$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
128: {
129: $nf.="$_/L ";
130: }
131:
132: #-------------------------------------
133:
134:
135: $_=$uword;
136: if ((s/μο$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
137: {
138: $nf.="$_/L ";
139: }
140:
141: #-------------------------------------
142:
143:
144: $_=$uword;
145: if ((s/μι$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
146: {
147: $nf.="$_/L ";
148: }
149:
150: #-------------------------------------
151:
152:
153: $_=$uword;
154: if ((s/μι$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
155: {
156: $nf.="$_/L ";
157: }
158:
159: #-------------------------------------
160:
161:
162: $_=$uword;
163: if ((s/μσρ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
164: {
165: $nf.="$_/L ";
166: }
167:
168: #-------------------------------------
169:
170:
171: $_=$uword;
172: if ((s/μασψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
173: {
174: $nf.="$_/L ";
175: }
176:
177: #-------------------------------------
178:
179:
180: $_=$uword;
181: if ((s/μοσψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
182: {
183: $nf.="$_/L ";
184: }
185:
186: #-------------------------------------
187:
188:
189: $_=$uword;
190: if ((s/μισψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
191: {
192: $nf.="$_/L ";
193: }
194:
195: #-------------------------------------
196:
197:
198: $_=$uword;
199: if ((s/μ$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
200: {
201: $nf.="$_/L ";
202: }
203:
204: #-------------------------------------
205:
206:
207: $_=$uword;
208: if ((s/μα$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
209: {
210: $nf.="$_/L ";
211: }
212:
213: #-------------------------------------
214:
215:
216: $_=$uword;
217: if ((s/μο$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
218: {
219: $nf.="$_/L ";
220: }
221:
222: #-------------------------------------
223:
224:
225: $_=$uword;
226: if ((s/μι$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
227: {
228: $nf.="$_/L ";
229: }
230:
231: #-------------------------------------
232:
233:
234: $_=$uword;
235: if ((s/μσρ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
236: {
237: $nf.="$_/L ";
238: }
239:
240: #-------------------------------------
241:
242:
243: $_=$uword;
244: if ((s/μασψ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
245: {
246: $nf.="$_/L ";
247: }
248:
249: #-------------------------------------
250:
251:
252: $_=$uword;
253: if ((s/μοσψ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
254: {
255: $nf.="$_/L ";
256: }
257:
258: #-------------------------------------
259:
260:
261: $_=$uword;
262: if ((s/μισψ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
263: {
264: $nf.="$_/L ";
265: }
266:
267: #-------------------------------------
268:
269:
270: $_=$uword;
271: if ((s/$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
272: {
273: $nf.="$_/L ";
274: }
275:
276: #-------------------------------------
277:
278:
279: $_=$uword;
280: if ((s/μα$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
281: {
282: $nf.="$_/L ";
283: }
284:
285: #-------------------------------------
286:
287:
288: $_=$uword;
289: if ((s/μι$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
290: {
291: $nf.="$_/L ";
292: }
293:
294: #-------------------------------------
295:
296:
297: $_=$uword;
298: if ((s/μο$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
299: {
300: $nf.="$_/L ";
301: }
302:
303: #-------------------------------------
304:
305:
306: $_=$uword;
307: if ((s/$/τψ/) && (m/ϊτψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
308: {
309: $nf.="$_/L ";
310: }
311:
312: #-------------------------------------
313:
314:
315: $_=$uword;
316: if ((s/σρ$/τψσρ/) && (m/ϊτψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
317: {
318: $nf.="$_/L ";
319: }
320:
321: #-------------------------------------
322:
323:
324: $_=$uword;
325: if ((s/λ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
326: {
327: $nf.="$_/L ";
328: }
329:
330: #-------------------------------------
331:
332:
333: $_=$uword;
334: if ((s/λμα$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
335: {
336: $nf.="$_/L ";
337: }
338:
339: #-------------------------------------
340:
341:
342: $_=$uword;
343: if ((s/λμο$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
344: {
345: $nf.="$_/L ";
346: }
347:
348: #-------------------------------------
349:
350:
351: $_=$uword;
352: if ((s/λμι$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
353: {
354: $nf.="$_/L ";
355: }
356:
357: #-------------------------------------
358:
359:
360: $_=$uword;
361: if ((s/λσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
362: {
363: $nf.="$_/L ";
364: }
365:
366: #-------------------------------------
367:
368:
369: $_=$uword;
370: if ((s/λμασψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
371: {
372: $nf.="$_/L ";
373: }
374:
375: #-------------------------------------
376:
377:
378: $_=$uword;
379: if ((s/λμοσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
380: {
381: $nf.="$_/L ";
382: }
383:
384: #-------------------------------------
385:
386:
387: $_=$uword;
388: if ((s/λμισψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
389: {
390: $nf.="$_/L ";
391: }
392:
393: #-------------------------------------
394:
395:
396: $_=$uword;
397: if ((s/μα$//) && (m/[^αιψρ]$/) && ($a=$$words{$_}) && ($a=~m/L/))
398: {
399: $nf.="$_/L ";
400: }
401:
402: #-------------------------------------
403:
404:
405: $_=$uword;
406: if ((s/μο$//) && (m/[^αιψρ]$/) && ($a=$$words{$_}) && ($a=~m/L/))
407: {
408: $nf.="$_/L ";
409: }
410:
411: #-------------------------------------
412:
413:
414: $_=$uword;
415: if ((s/μι$//) && (m/[^αιψρ]$/) && ($a=$$words{$_}) && ($a=~m/L/))
416: {
417: $nf.="$_/L ";
418: }
419:
420: #-------------------------------------
421:
422:
423: $_=$uword;
424: if ((s/μασψ$/σρ/) && (m/[^αιψρ]σρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
425: {
426: $nf.="$_/L ";
427: }
428:
429: #-------------------------------------
430:
431:
432: $_=$uword;
433: if ((s/μοσψ$/σρ/) && (m/[^αιψρ]σρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
434: {
435: $nf.="$_/L ";
436: }
437:
438: #-------------------------------------
439:
440:
441: $_=$uword;
442: if ((s/μισψ$/σρ/) && (m/[^αιψρ]σρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
443: {
444: $nf.="$_/L ";
445: }
446:
447: #-------------------------------------
448:
449:
450: $_=$uword;
451: if ((s/ο$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/L/))
452: {
453: $nf.="$_/L ";
454: }
455:
456: #-------------------------------------
457:
458:
459: $_=$uword;
460: if ((s/ι$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/L/))
461: {
462: $nf.="$_/L ";
463: }
464:
465: #-------------------------------------
466:
467:
468: $_=$uword;
469: if ((s/οσψ$/ασψ/) && (m/ασψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
470: {
471: $nf.="$_/L ";
472: }
473:
474: #-------------------------------------
475:
476:
477: $_=$uword;
478: if ((s/ισψ$/ασψ/) && (m/ασψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
479: {
480: $nf.="$_/L ";
481: }
482:
483: #-------------------------------------
484:
485:
486: $_=$uword;
487: if ((s/ΰ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
488: {
489: $nf.="$_/M ";
490: }
491:
492: #-------------------------------------
493:
494:
495: $_=$uword;
496: if ((s/ΰσψ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
497: {
498: $nf.="$_/M ";
499: }
500:
501: #-------------------------------------
502:
503:
504: $_=$uword;
505: if ((s/εν$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
506: {
507: $nf.="$_/M ";
508: }
509:
510: #-------------------------------------
511:
512:
513: $_=$uword;
514: if ((s/ενσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
515: {
516: $nf.="$_/M ";
517: }
518:
519: #-------------------------------------
520:
521:
522: $_=$uword;
523: if ((s/εϋψ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
524: {
525: $nf.="$_/M ";
526: }
527:
528: #-------------------------------------
529:
530:
531: $_=$uword;
532: if ((s/εϋψσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
533: {
534: $nf.="$_/M ";
535: }
536:
537: #-------------------------------------
538:
539:
540: $_=$uword;
541: if ((s/ετε$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
542: {
543: $nf.="$_/M ";
544: }
545:
546: #-------------------------------------
547:
548:
549: $_=$uword;
550: if ((s/ετεσψ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
551: {
552: $nf.="$_/M ";
553: }
554:
555: #-------------------------------------
556:
557:
558: $_=$uword;
559: if ((s/ετ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
560: {
561: $nf.="$_/M ";
562: }
563:
564: #-------------------------------------
565:
566:
567: $_=$uword;
568: if ((s/ετσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
569: {
570: $nf.="$_/M ";
571: }
572:
573: #-------------------------------------
574:
575:
576: $_=$uword;
577: if ((s/ΰτ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
578: {
579: $nf.="$_/M ";
580: }
581:
582: #-------------------------------------
583:
584:
585: $_=$uword;
586: if ((s/ΰτσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
587: {
588: $nf.="$_/M ";
589: }
590:
591: #-------------------------------------
592:
593:
594: $_=$uword;
595: if ((s/$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
596: {
597: $nf.="$_/M ";
598: }
599:
600: #-------------------------------------
601:
602:
603: $_=$uword;
604: if ((s/σψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
605: {
606: $nf.="$_/M ";
607: }
608:
609: #-------------------------------------
610:
611:
612: $_=$uword;
613: if ((s/εν$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
614: {
615: $nf.="$_/M ";
616: }
617:
618: #-------------------------------------
619:
620:
621: $_=$uword;
622: if ((s/ενσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
623: {
624: $nf.="$_/M ";
625: }
626:
627: #-------------------------------------
628:
629:
630: $_=$uword;
631: if ((s/εϋψ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
632: {
633: $nf.="$_/M ";
634: }
635:
636: #-------------------------------------
637:
638:
639: $_=$uword;
640: if ((s/εϋψσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
641: {
642: $nf.="$_/M ";
643: }
644:
645: #-------------------------------------
646:
647:
648: $_=$uword;
649: if ((s/ετε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
650: {
651: $nf.="$_/M ";
652: }
653:
654: #-------------------------------------
655:
656:
657: $_=$uword;
658: if ((s/ετεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
659: {
660: $nf.="$_/M ";
661: }
662:
663: #-------------------------------------
664:
665:
666: $_=$uword;
667: if ((s/ετ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
668: {
669: $nf.="$_/M ";
670: }
671:
672: #-------------------------------------
673:
674:
675: $_=$uword;
676: if ((s/ετσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
677: {
678: $nf.="$_/M ";
679: }
680:
681: #-------------------------------------
682:
683:
684: $_=$uword;
685: if ((s/$/ψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
686: {
687: $nf.="$_/M ";
688: }
689:
690: #-------------------------------------
691:
692:
693: $_=$uword;
694: if ((s/σρ$/ψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
695: {
696: $nf.="$_/M ";
697: }
698:
699: #-------------------------------------
700:
701:
702: $_=$uword;
703: if ((s/ΰ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
704: {
705: $nf.="$_/M ";
706: }
707:
708: #-------------------------------------
709:
710:
711: $_=$uword;
712: if ((s/ΰσψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
713: {
714: $nf.="$_/M ";
715: }
716:
717: #-------------------------------------
718:
719:
720: $_=$uword;
721: if ((s/εν$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
722: {
723: $nf.="$_/M ";
724: }
725:
726: #-------------------------------------
727:
728:
729: $_=$uword;
730: if ((s/ενσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
731: {
732: $nf.="$_/M ";
733: }
734:
735: #-------------------------------------
736:
737:
738: $_=$uword;
739: if ((s/εϋψ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
740: {
741: $nf.="$_/M ";
742: }
743:
744: #-------------------------------------
745:
746:
747: $_=$uword;
748: if ((s/εϋψσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
749: {
750: $nf.="$_/M ";
751: }
752:
753: #-------------------------------------
754:
755:
756: $_=$uword;
757: if ((s/ετε$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
758: {
759: $nf.="$_/M ";
760: }
761:
762: #-------------------------------------
763:
764:
765: $_=$uword;
766: if ((s/ετεσψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
767: {
768: $nf.="$_/M ";
769: }
770:
771: #-------------------------------------
772:
773:
774: $_=$uword;
775: if ((s/ετ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
776: {
777: $nf.="$_/M ";
778: }
779:
780: #-------------------------------------
781:
782:
783: $_=$uword;
784: if ((s/ετσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
785: {
786: $nf.="$_/M ";
787: }
788:
789: #-------------------------------------
790:
791:
792: $_=$uword;
793: if ((s/ΰτ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
794: {
795: $nf.="$_/M ";
796: }
797:
798: #-------------------------------------
799:
800:
801: $_=$uword;
802: if ((s/ΰτσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
803: {
804: $nf.="$_/M ";
805: }
806:
807: #-------------------------------------
808:
809:
810: $_=$uword;
811: if ((s/οΰ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
812: {
813: $nf.="$_/M ";
814: }
815:
816: #-------------------------------------
817:
818:
819: $_=$uword;
820: if ((s/οΰσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
821: {
822: $nf.="$_/M ";
823: }
824:
825: #-------------------------------------
826:
827:
828: $_=$uword;
829: if ((s/οεν$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
830: {
831: $nf.="$_/M ";
832: }
833:
834: #-------------------------------------
835:
836:
837: $_=$uword;
838: if ((s/οενσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
839: {
840: $nf.="$_/M ";
841: }
842:
843: #-------------------------------------
844:
845:
846: $_=$uword;
847: if ((s/οεϋψ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
848: {
849: $nf.="$_/M ";
850: }
851:
852: #-------------------------------------
853:
854:
855: $_=$uword;
856: if ((s/οεϋψσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
857: {
858: $nf.="$_/M ";
859: }
860:
861: #-------------------------------------
862:
863:
864: $_=$uword;
865: if ((s/οετε$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
866: {
867: $nf.="$_/M ";
868: }
869:
870: #-------------------------------------
871:
872:
873: $_=$uword;
874: if ((s/οετεσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
875: {
876: $nf.="$_/M ";
877: }
878:
879: #-------------------------------------
880:
881:
882: $_=$uword;
883: if ((s/οετ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
884: {
885: $nf.="$_/M ";
886: }
887:
888: #-------------------------------------
889:
890:
891: $_=$uword;
892: if ((s/οετσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
893: {
894: $nf.="$_/M ";
895: }
896:
897: #-------------------------------------
898:
899:
900: $_=$uword;
901: if ((s/οΰτ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
902: {
903: $nf.="$_/M ";
904: }
905:
906: #-------------------------------------
907:
908:
909: $_=$uword;
910: if ((s/οΰτσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
911: {
912: $nf.="$_/M ";
913: }
914:
915: #-------------------------------------
916:
917:
918: $_=$uword;
919: if ((s/υ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
920: {
921: $nf.="$_/M ";
922: }
923:
924: #-------------------------------------
925:
926:
927: $_=$uword;
928: if ((s/υσψ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
929: {
930: $nf.="$_/M ";
931: }
932:
933: #-------------------------------------
934:
935:
936: $_=$uword;
937: if ((s/εν$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
938: {
939: $nf.="$_/M ";
940: }
941:
942: #-------------------------------------
943:
944:
945: $_=$uword;
946: if ((s/ενσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
947: {
948: $nf.="$_/M ";
949: }
950:
951: #-------------------------------------
952:
953:
954: $_=$uword;
955: if ((s/εϋψ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
956: {
957: $nf.="$_/M ";
958: }
959:
960: #-------------------------------------
961:
962:
963: $_=$uword;
964: if ((s/εϋψσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
965: {
966: $nf.="$_/M ";
967: }
968:
969: #-------------------------------------
970:
971:
972: $_=$uword;
973: if ((s/ετε$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
974: {
975: $nf.="$_/M ";
976: }
977:
978: #-------------------------------------
979:
980:
981: $_=$uword;
982: if ((s/ετεσψ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
983: {
984: $nf.="$_/M ";
985: }
986:
987: #-------------------------------------
988:
989:
990: $_=$uword;
991: if ((s/ετ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
992: {
993: $nf.="$_/M ";
994: }
995:
996: #-------------------------------------
997:
998:
999: $_=$uword;
1000: if ((s/ετσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1001: {
1002: $nf.="$_/M ";
1003: }
1004:
1005: #-------------------------------------
1006:
1007:
1008: $_=$uword;
1009: if ((s/υτ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
1010: {
1011: $nf.="$_/M ";
1012: }
1013:
1014: #-------------------------------------
1015:
1016:
1017: $_=$uword;
1018: if ((s/υτσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1019: {
1020: $nf.="$_/M ";
1021: }
1022:
1023: #-------------------------------------
1024:
1025:
1026: $_=$uword;
1027: if ((s/δυ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
1028: {
1029: $nf.="$_/M ";
1030: }
1031:
1032: #-------------------------------------
1033:
1034:
1035: $_=$uword;
1036: if ((s/δυσψ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1037: {
1038: $nf.="$_/M ";
1039: }
1040:
1041: #-------------------------------------
1042:
1043:
1044: $_=$uword;
1045: if ((s/δεν$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
1046: {
1047: $nf.="$_/M ";
1048: }
1049:
1050: #-------------------------------------
1051:
1052:
1053: $_=$uword;
1054: if ((s/δενσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1055: {
1056: $nf.="$_/M ";
1057: }
1058:
1059: #-------------------------------------
1060:
1061:
1062: $_=$uword;
1063: if ((s/δεϋψ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
1064: {
1065: $nf.="$_/M ";
1066: }
1067:
1068: #-------------------------------------
1069:
1070:
1071: $_=$uword;
1072: if ((s/δεϋψσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1073: {
1074: $nf.="$_/M ";
1075: }
1076:
1077: #-------------------------------------
1078:
1079:
1080: $_=$uword;
1081: if ((s/δετε$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
1082: {
1083: $nf.="$_/M ";
1084: }
1085:
1086: #-------------------------------------
1087:
1088:
1089: $_=$uword;
1090: if ((s/δετεσψ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1091: {
1092: $nf.="$_/M ";
1093: }
1094:
1095: #-------------------------------------
1096:
1097:
1098: $_=$uword;
1099: if ((s/δετ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
1100: {
1101: $nf.="$_/M ";
1102: }
1103:
1104: #-------------------------------------
1105:
1106:
1107: $_=$uword;
1108: if ((s/δετσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1109: {
1110: $nf.="$_/M ";
1111: }
1112:
1113: #-------------------------------------
1114:
1115:
1116: $_=$uword;
1117: if ((s/δυτ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
1118: {
1119: $nf.="$_/M ";
1120: }
1121:
1122: #-------------------------------------
1123:
1124:
1125: $_=$uword;
1126: if ((s/δυτσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1127: {
1128: $nf.="$_/M ";
1129: }
1130:
1131: #-------------------------------------
1132:
1133:
1134: $_=$uword;
1135: if ((s/λυ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1136: {
1137: $nf.="$_/M ";
1138: }
1139:
1140: #-------------------------------------
1141:
1142:
1143: $_=$uword;
1144: if ((s/λυσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1145: {
1146: $nf.="$_/M ";
1147: }
1148:
1149: #-------------------------------------
1150:
1151:
1152: $_=$uword;
1153: if ((s/εν$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1154: {
1155: $nf.="$_/M ";
1156: }
1157:
1158: #-------------------------------------
1159:
1160:
1161: $_=$uword;
1162: if ((s/ενσρ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1163: {
1164: $nf.="$_/M ";
1165: }
1166:
1167: #-------------------------------------
1168:
1169:
1170: $_=$uword;
1171: if ((s/εϋψ$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1172: {
1173: $nf.="$_/M ";
1174: }
1175:
1176: #-------------------------------------
1177:
1178:
1179: $_=$uword;
1180: if ((s/εϋψσρ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1181: {
1182: $nf.="$_/M ";
1183: }
1184:
1185: #-------------------------------------
1186:
1187:
1188: $_=$uword;
1189: if ((s/ετε$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1190: {
1191: $nf.="$_/M ";
1192: }
1193:
1194: #-------------------------------------
1195:
1196:
1197: $_=$uword;
1198: if ((s/ετεσψ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1199: {
1200: $nf.="$_/M ";
1201: }
1202:
1203: #-------------------------------------
1204:
1205:
1206: $_=$uword;
1207: if ((s/ετ$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1208: {
1209: $nf.="$_/M ";
1210: }
1211:
1212: #-------------------------------------
1213:
1214:
1215: $_=$uword;
1216: if ((s/ετσρ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1217: {
1218: $nf.="$_/M ";
1219: }
1220:
1221: #-------------------------------------
1222:
1223:
1224: $_=$uword;
1225: if ((s/λυτ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1226: {
1227: $nf.="$_/M ";
1228: }
1229:
1230: #-------------------------------------
1231:
1232:
1233: $_=$uword;
1234: if ((s/λυτσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
1235: {
1236: $nf.="$_/M ";
1237: }
1238:
1239: #-------------------------------------
1240:
1241:
1242: $_=$uword;
1243: if ((s/ΰ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1244: {
1245: $nf.="$_/U ";
1246: }
1247:
1248: #-------------------------------------
1249:
1250:
1251: $_=$uword;
1252: if ((s/εν$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1253: {
1254: $nf.="$_/U ";
1255: }
1256:
1257: #-------------------------------------
1258:
1259:
1260: $_=$uword;
1261: if ((s/εϋψ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1262: {
1263: $nf.="$_/U ";
1264: }
1265:
1266: #-------------------------------------
1267:
1268:
1269: $_=$uword;
1270: if ((s/ετε$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1271: {
1272: $nf.="$_/U ";
1273: }
1274:
1275: #-------------------------------------
1276:
1277:
1278: $_=$uword;
1279: if ((s/ετ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1280: {
1281: $nf.="$_/U ";
1282: }
1283:
1284: #-------------------------------------
1285:
1286:
1287: $_=$uword;
1288: if ((s/ΰτ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1289: {
1290: $nf.="$_/U ";
1291: }
1292:
1293: #-------------------------------------
1294:
1295:
1296: $_=$uword;
1297: if ((s/ΰσψ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1298: {
1299: $nf.="$_/U ";
1300: }
1301:
1302: #-------------------------------------
1303:
1304:
1305: $_=$uword;
1306: if ((s/ενσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1307: {
1308: $nf.="$_/U ";
1309: }
1310:
1311: #-------------------------------------
1312:
1313:
1314: $_=$uword;
1315: if ((s/εϋψσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1316: {
1317: $nf.="$_/U ";
1318: }
1319:
1320: #-------------------------------------
1321:
1322:
1323: $_=$uword;
1324: if ((s/ετεσψ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1325: {
1326: $nf.="$_/U ";
1327: }
1328:
1329: #-------------------------------------
1330:
1331:
1332: $_=$uword;
1333: if ((s/ετσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1334: {
1335: $nf.="$_/U ";
1336: }
1337:
1338: #-------------------------------------
1339:
1340:
1341: $_=$uword;
1342: if ((s/ΰτσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1343: {
1344: $nf.="$_/U ";
1345: }
1346:
1347: #-------------------------------------
1348:
1349:
1350: $_=$uword;
1351: if ((s/υΰ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1352: {
1353: $nf.="$_/U ";
1354: }
1355:
1356: #-------------------------------------
1357:
1358:
1359: $_=$uword;
1360: if ((s/υεν$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1361: {
1362: $nf.="$_/U ";
1363: }
1364:
1365: #-------------------------------------
1366:
1367:
1368: $_=$uword;
1369: if ((s/υεϋψ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1370: {
1371: $nf.="$_/U ";
1372: }
1373:
1374: #-------------------------------------
1375:
1376:
1377: $_=$uword;
1378: if ((s/υετε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1379: {
1380: $nf.="$_/U ";
1381: }
1382:
1383: #-------------------------------------
1384:
1385:
1386: $_=$uword;
1387: if ((s/υετ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1388: {
1389: $nf.="$_/U ";
1390: }
1391:
1392: #-------------------------------------
1393:
1394:
1395: $_=$uword;
1396: if ((s/υΰτ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1397: {
1398: $nf.="$_/U ";
1399: }
1400:
1401: #-------------------------------------
1402:
1403:
1404: $_=$uword;
1405: if ((s/υΰσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1406: {
1407: $nf.="$_/U ";
1408: }
1409:
1410: #-------------------------------------
1411:
1412:
1413: $_=$uword;
1414: if ((s/υενσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1415: {
1416: $nf.="$_/U ";
1417: }
1418:
1419: #-------------------------------------
1420:
1421:
1422: $_=$uword;
1423: if ((s/υεϋψσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1424: {
1425: $nf.="$_/U ";
1426: }
1427:
1428: #-------------------------------------
1429:
1430:
1431: $_=$uword;
1432: if ((s/υετεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1433: {
1434: $nf.="$_/U ";
1435: }
1436:
1437: #-------------------------------------
1438:
1439:
1440: $_=$uword;
1441: if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1442: {
1443: $nf.="$_/U ";
1444: }
1445:
1446: #-------------------------------------
1447:
1448:
1449: $_=$uword;
1450: if ((s/υΰτσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1451: {
1452: $nf.="$_/U ";
1453: }
1454:
1455: #-------------------------------------
1456:
1457:
1458: $_=$uword;
1459: if ((s/ΰΰ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1460: {
1461: $nf.="$_/U ";
1462: }
1463:
1464: #-------------------------------------
1465:
1466:
1467: $_=$uword;
1468: if ((s/ΰεν$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1469: {
1470: $nf.="$_/U ";
1471: }
1472:
1473: #-------------------------------------
1474:
1475:
1476: $_=$uword;
1477: if ((s/ΰεϋψ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1478: {
1479: $nf.="$_/U ";
1480: }
1481:
1482: #-------------------------------------
1483:
1484:
1485: $_=$uword;
1486: if ((s/ΰετε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1487: {
1488: $nf.="$_/U ";
1489: }
1490:
1491: #-------------------------------------
1492:
1493:
1494: $_=$uword;
1495: if ((s/ΰετ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1496: {
1497: $nf.="$_/U ";
1498: }
1499:
1500: #-------------------------------------
1501:
1502:
1503: $_=$uword;
1504: if ((s/ΰΰτ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1505: {
1506: $nf.="$_/U ";
1507: }
1508:
1509: #-------------------------------------
1510:
1511:
1512: $_=$uword;
1513: if ((s/ΰΰσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1514: {
1515: $nf.="$_/U ";
1516: }
1517:
1518: #-------------------------------------
1519:
1520:
1521: $_=$uword;
1522: if ((s/ΰενσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1523: {
1524: $nf.="$_/U ";
1525: }
1526:
1527: #-------------------------------------
1528:
1529:
1530: $_=$uword;
1531: if ((s/ΰεϋψσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1532: {
1533: $nf.="$_/U ";
1534: }
1535:
1536: #-------------------------------------
1537:
1538:
1539: $_=$uword;
1540: if ((s/ΰετεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1541: {
1542: $nf.="$_/U ";
1543: }
1544:
1545: #-------------------------------------
1546:
1547:
1548: $_=$uword;
1549: if ((s/ΰετσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1550: {
1551: $nf.="$_/U ";
1552: }
1553:
1554: #-------------------------------------
1555:
1556:
1557: $_=$uword;
1558: if ((s/ΰΰτσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1559: {
1560: $nf.="$_/U ";
1561: }
1562:
1563: #-------------------------------------
1564:
1565:
1566: $_=$uword;
1567: if ((s/υΰ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1568: {
1569: $nf.="$_/U ";
1570: }
1571:
1572: #-------------------------------------
1573:
1574:
1575: $_=$uword;
1576: if ((s/υεν$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1577: {
1578: $nf.="$_/U ";
1579: }
1580:
1581: #-------------------------------------
1582:
1583:
1584: $_=$uword;
1585: if ((s/υεϋψ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1586: {
1587: $nf.="$_/U ";
1588: }
1589:
1590: #-------------------------------------
1591:
1592:
1593: $_=$uword;
1594: if ((s/υετε$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1595: {
1596: $nf.="$_/U ";
1597: }
1598:
1599: #-------------------------------------
1600:
1601:
1602: $_=$uword;
1603: if ((s/υετ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1604: {
1605: $nf.="$_/U ";
1606: }
1607:
1608: #-------------------------------------
1609:
1610:
1611: $_=$uword;
1612: if ((s/υΰτ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1613: {
1614: $nf.="$_/U ";
1615: }
1616:
1617: #-------------------------------------
1618:
1619:
1620: $_=$uword;
1621: if ((s/υΰσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1622: {
1623: $nf.="$_/U ";
1624: }
1625:
1626: #-------------------------------------
1627:
1628:
1629: $_=$uword;
1630: if ((s/υενσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1631: {
1632: $nf.="$_/U ";
1633: }
1634:
1635: #-------------------------------------
1636:
1637:
1638: $_=$uword;
1639: if ((s/υεϋψσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1640: {
1641: $nf.="$_/U ";
1642: }
1643:
1644: #-------------------------------------
1645:
1646:
1647: $_=$uword;
1648: if ((s/υετεσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1649: {
1650: $nf.="$_/U ";
1651: }
1652:
1653: #-------------------------------------
1654:
1655:
1656: $_=$uword;
1657: if ((s/υετσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1658: {
1659: $nf.="$_/U ";
1660: }
1661:
1662: #-------------------------------------
1663:
1664:
1665: $_=$uword;
1666: if ((s/υΰτσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1667: {
1668: $nf.="$_/U ";
1669: }
1670:
1671: #-------------------------------------
1672:
1673:
1674: $_=$uword;
1675: if ((s/ΰ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1676: {
1677: $nf.="$_/U ";
1678: }
1679:
1680: #-------------------------------------
1681:
1682:
1683: $_=$uword;
1684: if ((s/ΰ$/ρτψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1685: {
1686: $nf.="$_/U ";
1687: }
1688:
1689: #-------------------------------------
1690:
1691:
1692: $_=$uword;
1693: if ((s/εν$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1694: {
1695: $nf.="$_/U ";
1696: }
1697:
1698: #-------------------------------------
1699:
1700:
1701: $_=$uword;
1702: if ((s/εν$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1703: {
1704: $nf.="$_/U ";
1705: }
1706:
1707: #-------------------------------------
1708:
1709:
1710: $_=$uword;
1711: if ((s/ιν$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1712: {
1713: $nf.="$_/U ";
1714: }
1715:
1716: #-------------------------------------
1717:
1718:
1719: $_=$uword;
1720: if ((s/εϋψ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1721: {
1722: $nf.="$_/U ";
1723: }
1724:
1725: #-------------------------------------
1726:
1727:
1728: $_=$uword;
1729: if ((s/εϋψ$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1730: {
1731: $nf.="$_/U ";
1732: }
1733:
1734: #-------------------------------------
1735:
1736:
1737: $_=$uword;
1738: if ((s/ιϋψ$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1739: {
1740: $nf.="$_/U ";
1741: }
1742:
1743: #-------------------------------------
1744:
1745:
1746: $_=$uword;
1747: if ((s/ετε$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1748: {
1749: $nf.="$_/U ";
1750: }
1751:
1752: #-------------------------------------
1753:
1754:
1755: $_=$uword;
1756: if ((s/ετε$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1757: {
1758: $nf.="$_/U ";
1759: }
1760:
1761: #-------------------------------------
1762:
1763:
1764: $_=$uword;
1765: if ((s/ιτε$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1766: {
1767: $nf.="$_/U ";
1768: }
1769:
1770: #-------------------------------------
1771:
1772:
1773: $_=$uword;
1774: if ((s/ετ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1775: {
1776: $nf.="$_/U ";
1777: }
1778:
1779: #-------------------------------------
1780:
1781:
1782: $_=$uword;
1783: if ((s/ετ$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1784: {
1785: $nf.="$_/U ";
1786: }
1787:
1788: #-------------------------------------
1789:
1790:
1791: $_=$uword;
1792: if ((s/ιτ$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1793: {
1794: $nf.="$_/U ";
1795: }
1796:
1797: #-------------------------------------
1798:
1799:
1800: $_=$uword;
1801: if ((s/ΰτ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1802: {
1803: $nf.="$_/U ";
1804: }
1805:
1806: #-------------------------------------
1807:
1808:
1809: $_=$uword;
1810: if ((s/ΰτ$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1811: {
1812: $nf.="$_/U ";
1813: }
1814:
1815: #-------------------------------------
1816:
1817:
1818: $_=$uword;
1819: if ((s/$/ψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1820: {
1821: $nf.="$_/U ";
1822: }
1823:
1824: #-------------------------------------
1825:
1826:
1827: $_=$uword;
1828: if ((s/ΰσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1829: {
1830: $nf.="$_/U ";
1831: }
1832:
1833: #-------------------------------------
1834:
1835:
1836: $_=$uword;
1837: if ((s/ΰσψ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1838: {
1839: $nf.="$_/U ";
1840: }
1841:
1842: #-------------------------------------
1843:
1844:
1845: $_=$uword;
1846: if ((s/ενσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1847: {
1848: $nf.="$_/U ";
1849: }
1850:
1851: #-------------------------------------
1852:
1853:
1854: $_=$uword;
1855: if ((s/ενσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1856: {
1857: $nf.="$_/U ";
1858: }
1859:
1860: #-------------------------------------
1861:
1862:
1863: $_=$uword;
1864: if ((s/ινσρ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1865: {
1866: $nf.="$_/U ";
1867: }
1868:
1869: #-------------------------------------
1870:
1871:
1872: $_=$uword;
1873: if ((s/εϋψσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1874: {
1875: $nf.="$_/U ";
1876: }
1877:
1878: #-------------------------------------
1879:
1880:
1881: $_=$uword;
1882: if ((s/εϋψσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1883: {
1884: $nf.="$_/U ";
1885: }
1886:
1887: #-------------------------------------
1888:
1889:
1890: $_=$uword;
1891: if ((s/ιϋψσρ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1892: {
1893: $nf.="$_/U ";
1894: }
1895:
1896: #-------------------------------------
1897:
1898:
1899: $_=$uword;
1900: if ((s/ετεσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1901: {
1902: $nf.="$_/U ";
1903: }
1904:
1905: #-------------------------------------
1906:
1907:
1908: $_=$uword;
1909: if ((s/ετεσψ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1910: {
1911: $nf.="$_/U ";
1912: }
1913:
1914: #-------------------------------------
1915:
1916:
1917: $_=$uword;
1918: if ((s/ιτεσψ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1919: {
1920: $nf.="$_/U ";
1921: }
1922:
1923: #-------------------------------------
1924:
1925:
1926: $_=$uword;
1927: if ((s/ετσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1928: {
1929: $nf.="$_/U ";
1930: }
1931:
1932: #-------------------------------------
1933:
1934:
1935: $_=$uword;
1936: if ((s/ετσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1937: {
1938: $nf.="$_/U ";
1939: }
1940:
1941: #-------------------------------------
1942:
1943:
1944: $_=$uword;
1945: if ((s/ιτσρ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1946: {
1947: $nf.="$_/U ";
1948: }
1949:
1950: #-------------------------------------
1951:
1952:
1953: $_=$uword;
1954: if ((s/ΰτσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1955: {
1956: $nf.="$_/U ";
1957: }
1958:
1959: #-------------------------------------
1960:
1961:
1962: $_=$uword;
1963: if ((s/ΰτσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1964: {
1965: $nf.="$_/U ";
1966: }
1967:
1968: #-------------------------------------
1969:
1970:
1971: $_=$uword;
1972: if ((s/σρ$/ψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1973: {
1974: $nf.="$_/U ";
1975: }
1976:
1977: #-------------------------------------
1978:
1979:
1980: $_=$uword;
1981: if ((s/υ$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1982: {
1983: $nf.="$_/U ";
1984: }
1985:
1986: #-------------------------------------
1987:
1988:
1989: $_=$uword;
1990: if ((s/υσψ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
1991: {
1992: $nf.="$_/U ";
1993: }
1994:
1995: #-------------------------------------
1996:
1997:
1998: $_=$uword;
1999: if ((s/ιν$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2000: {
2001: $nf.="$_/U ";
2002: }
2003:
2004: #-------------------------------------
2005:
2006:
2007: $_=$uword;
2008: if ((s/ινσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2009: {
2010: $nf.="$_/U ";
2011: }
2012:
2013: #-------------------------------------
2014:
2015:
2016: $_=$uword;
2017: if ((s/ιϋψ$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2018: {
2019: $nf.="$_/U ";
2020: }
2021:
2022: #-------------------------------------
2023:
2024:
2025: $_=$uword;
2026: if ((s/ιϋψσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2027: {
2028: $nf.="$_/U ";
2029: }
2030:
2031: #-------------------------------------
2032:
2033:
2034: $_=$uword;
2035: if ((s/ιτε$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2036: {
2037: $nf.="$_/U ";
2038: }
2039:
2040: #-------------------------------------
2041:
2042:
2043: $_=$uword;
2044: if ((s/ιτεσψ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2045: {
2046: $nf.="$_/U ";
2047: }
2048:
2049: #-------------------------------------
2050:
2051:
2052: $_=$uword;
2053: if ((s/ιτ$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2054: {
2055: $nf.="$_/U ";
2056: }
2057:
2058: #-------------------------------------
2059:
2060:
2061: $_=$uword;
2062: if ((s/ιτσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2063: {
2064: $nf.="$_/U ";
2065: }
2066:
2067: #-------------------------------------
2068:
2069:
2070: $_=$uword;
2071: if ((s/$/ψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2072: {
2073: $nf.="$_/U ";
2074: }
2075:
2076: #-------------------------------------
2077:
2078:
2079: $_=$uword;
2080: if ((s/σρ$/ψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2081: {
2082: $nf.="$_/U ";
2083: }
2084:
2085: #-------------------------------------
2086:
2087:
2088: $_=$uword;
2089: if ((s/υ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2090: {
2091: $nf.="$_/U ";
2092: }
2093:
2094: #-------------------------------------
2095:
2096:
2097: $_=$uword;
2098: if ((s/υσψ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2099: {
2100: $nf.="$_/U ";
2101: }
2102:
2103: #-------------------------------------
2104:
2105:
2106: $_=$uword;
2107: if ((s/εν$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2108: {
2109: $nf.="$_/U ";
2110: }
2111:
2112: #-------------------------------------
2113:
2114:
2115: $_=$uword;
2116: if ((s/ενσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2117: {
2118: $nf.="$_/U ";
2119: }
2120:
2121: #-------------------------------------
2122:
2123:
2124: $_=$uword;
2125: if ((s/εϋψ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2126: {
2127: $nf.="$_/U ";
2128: }
2129:
2130: #-------------------------------------
2131:
2132:
2133: $_=$uword;
2134: if ((s/εϋψσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2135: {
2136: $nf.="$_/U ";
2137: }
2138:
2139: #-------------------------------------
2140:
2141:
2142: $_=$uword;
2143: if ((s/ετε$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2144: {
2145: $nf.="$_/U ";
2146: }
2147:
2148: #-------------------------------------
2149:
2150:
2151: $_=$uword;
2152: if ((s/ετεσψ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2153: {
2154: $nf.="$_/U ";
2155: }
2156:
2157: #-------------------------------------
2158:
2159:
2160: $_=$uword;
2161: if ((s/ετ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2162: {
2163: $nf.="$_/U ";
2164: }
2165:
2166: #-------------------------------------
2167:
2168:
2169: $_=$uword;
2170: if ((s/ετσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2171: {
2172: $nf.="$_/U ";
2173: }
2174:
2175: #-------------------------------------
2176:
2177:
2178: $_=$uword;
2179: if ((s/υτ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2180: {
2181: $nf.="$_/U ";
2182: }
2183:
2184: #-------------------------------------
2185:
2186:
2187: $_=$uword;
2188: if ((s/υτσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2189: {
2190: $nf.="$_/U ";
2191: }
2192:
2193: #-------------------------------------
2194:
2195:
2196: $_=$uword;
2197: if ((s/ηυ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2198: {
2199: $nf.="$_/U ";
2200: }
2201:
2202: #-------------------------------------
2203:
2204:
2205: $_=$uword;
2206: if ((s/ηυσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2207: {
2208: $nf.="$_/U ";
2209: }
2210:
2211: #-------------------------------------
2212:
2213:
2214: $_=$uword;
2215: if ((s/φεν$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2216: {
2217: $nf.="$_/U ";
2218: }
2219:
2220: #-------------------------------------
2221:
2222:
2223: $_=$uword;
2224: if ((s/φενσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2225: {
2226: $nf.="$_/U ";
2227: }
2228:
2229: #-------------------------------------
2230:
2231:
2232: $_=$uword;
2233: if ((s/φεϋψ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2234: {
2235: $nf.="$_/U ";
2236: }
2237:
2238: #-------------------------------------
2239:
2240:
2241: $_=$uword;
2242: if ((s/φεϋψσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2243: {
2244: $nf.="$_/U ";
2245: }
2246:
2247: #-------------------------------------
2248:
2249:
2250: $_=$uword;
2251: if ((s/φετε$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2252: {
2253: $nf.="$_/U ";
2254: }
2255:
2256: #-------------------------------------
2257:
2258:
2259: $_=$uword;
2260: if ((s/φετεσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2261: {
2262: $nf.="$_/U ";
2263: }
2264:
2265: #-------------------------------------
2266:
2267:
2268: $_=$uword;
2269: if ((s/φετ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2270: {
2271: $nf.="$_/U ";
2272: }
2273:
2274: #-------------------------------------
2275:
2276:
2277: $_=$uword;
2278: if ((s/φετσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2279: {
2280: $nf.="$_/U ";
2281: }
2282:
2283: #-------------------------------------
2284:
2285:
2286: $_=$uword;
2287: if ((s/ηυτ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2288: {
2289: $nf.="$_/U ";
2290: }
2291:
2292: #-------------------------------------
2293:
2294:
2295: $_=$uword;
2296: if ((s/ηυτσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2297: {
2298: $nf.="$_/U ";
2299: }
2300:
2301: #-------------------------------------
2302:
2303:
2304: $_=$uword;
2305: if ((s/$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2306: {
2307: $nf.="$_/U ";
2308: }
2309:
2310: #-------------------------------------
2311:
2312:
2313: $_=$uword;
2314: if ((s/σψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2315: {
2316: $nf.="$_/U ";
2317: }
2318:
2319: #-------------------------------------
2320:
2321:
2322: $_=$uword;
2323: if ((s/εν$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2324: {
2325: $nf.="$_/U ";
2326: }
2327:
2328: #-------------------------------------
2329:
2330:
2331: $_=$uword;
2332: if ((s/ενσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2333: {
2334: $nf.="$_/U ";
2335: }
2336:
2337: #-------------------------------------
2338:
2339:
2340: $_=$uword;
2341: if ((s/εϋψ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2342: {
2343: $nf.="$_/U ";
2344: }
2345:
2346: #-------------------------------------
2347:
2348:
2349: $_=$uword;
2350: if ((s/εϋψσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2351: {
2352: $nf.="$_/U ";
2353: }
2354:
2355: #-------------------------------------
2356:
2357:
2358: $_=$uword;
2359: if ((s/ετε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2360: {
2361: $nf.="$_/U ";
2362: }
2363:
2364: #-------------------------------------
2365:
2366:
2367: $_=$uword;
2368: if ((s/ετεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2369: {
2370: $nf.="$_/U ";
2371: }
2372:
2373: #-------------------------------------
2374:
2375:
2376: $_=$uword;
2377: if ((s/ετ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2378: {
2379: $nf.="$_/U ";
2380: }
2381:
2382: #-------------------------------------
2383:
2384:
2385: $_=$uword;
2386: if ((s/ετσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2387: {
2388: $nf.="$_/U ";
2389: }
2390:
2391: #-------------------------------------
2392:
2393:
2394: $_=$uword;
2395: if ((s/$/ψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2396: {
2397: $nf.="$_/U ";
2398: }
2399:
2400: #-------------------------------------
2401:
2402:
2403: $_=$uword;
2404: if ((s/σρ$/ψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
2405: {
2406: $nf.="$_/U ";
2407: }
2408:
2409: #-------------------------------------
2410:
2411:
2412: $_=$uword;
2413: if ((s/μΰ$/ιτψ/) && (m/[βχνπζ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2414: {
2415: $nf.="$_/W ";
2416: }
2417:
2418: #-------------------------------------
2419:
2420:
2421: $_=$uword;
2422: if ((s/μΰσψ$/ιτψσρ/) && (m/[βχνπζ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2423: {
2424: $nf.="$_/W ";
2425: }
2426:
2427: #-------------------------------------
2428:
2429:
2430: $_=$uword;
2431: if ((s/φυ$/διτψ/) && (m/διτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2432: {
2433: $nf.="$_/W ";
2434: }
2435:
2436: #-------------------------------------
2437:
2438:
2439: $_=$uword;
2440: if ((s/φυσψ$/διτψσρ/) && (m/διτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2441: {
2442: $nf.="$_/W ";
2443: }
2444:
2445: #-------------------------------------
2446:
2447:
2448: $_=$uword;
2449: if ((s/ΰ$/ιτψ/) && (m/[αεμξοςυ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2450: {
2451: $nf.="$_/W ";
2452: }
2453:
2454: #-------------------------------------
2455:
2456:
2457: $_=$uword;
2458: if ((s/ΰσψ$/ιτψσρ/) && (m/[αεμξοςυ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2459: {
2460: $nf.="$_/W ";
2461: }
2462:
2463: #-------------------------------------
2464:
2465:
2466: $_=$uword;
2467: if ((s/υ$/ιτψ/) && (m/[φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2468: {
2469: $nf.="$_/W ";
2470: }
2471:
2472: #-------------------------------------
2473:
2474:
2475: $_=$uword;
2476: if ((s/υσψ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2477: {
2478: $nf.="$_/W ";
2479: }
2480:
2481: #-------------------------------------
2482:
2483:
2484: $_=$uword;
2485: if ((s/φυ$/ϊιτψ/) && (m/ϊιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2486: {
2487: $nf.="$_/W ";
2488: }
2489:
2490: #-------------------------------------
2491:
2492:
2493: $_=$uword;
2494: if ((s/φυσψ$/ϊιτψσρ/) && (m/ϊιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2495: {
2496: $nf.="$_/W ";
2497: }
2498:
2499: #-------------------------------------
2500:
2501:
2502: $_=$uword;
2503: if ((s/ϋυ$/σιτψ/) && (m/σιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2504: {
2505: $nf.="$_/W ";
2506: }
2507:
2508: #-------------------------------------
2509:
2510:
2511: $_=$uword;
2512: if ((s/ϋυσψ$/σιτψσρ/) && (m/σιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2513: {
2514: $nf.="$_/W ";
2515: }
2516:
2517: #-------------------------------------
2518:
2519:
2520: $_=$uword;
2521: if ((s/ώυ$/τιτψ/) && (m/[^αειουωόΰρσώ]τιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2522: {
2523: $nf.="$_/W ";
2524: }
2525:
2526: #-------------------------------------
2527:
2528:
2529: $_=$uword;
2530: if ((s/ύυ$/στιτψ/) && (m/στιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2531: {
2532: $nf.="$_/W ";
2533: }
2534:
2535: #-------------------------------------
2536:
2537:
2538: $_=$uword;
2539: if ((s/ώυσψ$/τιτψσρ/) && (m/[^αειουωόΰρσώ]τιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2540: {
2541: $nf.="$_/W ";
2542: }
2543:
2544: #-------------------------------------
2545:
2546:
2547: $_=$uword;
2548: if ((s/ύυσψ$/στιτψσρ/) && (m/στιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2549: {
2550: $nf.="$_/W ";
2551: }
2552:
2553: #-------------------------------------
2554:
2555:
2556: $_=$uword;
2557: if ((s/ν$/τψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2558: {
2559: $nf.="$_/W ";
2560: }
2561:
2562: #-------------------------------------
2563:
2564:
2565: $_=$uword;
2566: if ((s/νσρ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2567: {
2568: $nf.="$_/W ";
2569: }
2570:
2571: #-------------------------------------
2572:
2573:
2574: $_=$uword;
2575: if ((s/ϋψ$/τψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2576: {
2577: $nf.="$_/W ";
2578: }
2579:
2580: #-------------------------------------
2581:
2582:
2583: $_=$uword;
2584: if ((s/ϋψσρ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2585: {
2586: $nf.="$_/W ";
2587: }
2588:
2589: #-------------------------------------
2590:
2591:
2592: $_=$uword;
2593: if ((s/ε$/ψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2594: {
2595: $nf.="$_/W ";
2596: }
2597:
2598: #-------------------------------------
2599:
2600:
2601: $_=$uword;
2602: if ((s/εσψ$/ψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2603: {
2604: $nf.="$_/W ";
2605: }
2606:
2607: #-------------------------------------
2608:
2609:
2610: $_=$uword;
2611: if ((s/$/ψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2612: {
2613: $nf.="$_/W ";
2614: }
2615:
2616: #-------------------------------------
2617:
2618:
2619: $_=$uword;
2620: if ((s/σρ$/ψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2621: {
2622: $nf.="$_/W ";
2623: }
2624:
2625: #-------------------------------------
2626:
2627:
2628: $_=$uword;
2629: if ((s/ρτ$/ιτψ/) && (m/[^φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2630: {
2631: $nf.="$_/W ";
2632: }
2633:
2634: #-------------------------------------
2635:
2636:
2637: $_=$uword;
2638: if ((s/ρτσρ$/ιτψσρ/) && (m/[^φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2639: {
2640: $nf.="$_/W ";
2641: }
2642:
2643: #-------------------------------------
2644:
2645:
2646: $_=$uword;
2647: if ((s/ατ$/ιτψ/) && (m/[φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2648: {
2649: $nf.="$_/W ";
2650: }
2651:
2652: #-------------------------------------
2653:
2654:
2655: $_=$uword;
2656: if ((s/ατσρ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
2657: {
2658: $nf.="$_/W ";
2659: }
2660:
2661: #-------------------------------------
2662:
2663:
2664: $_=$uword;
2665: if ((s/ψΰ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2666: {
2667: $nf.="$_/V ";
2668: }
2669:
2670: #-------------------------------------
2671:
2672:
2673: $_=$uword;
2674: if ((s/ψΰσψ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2675: {
2676: $nf.="$_/V ";
2677: }
2678:
2679: #-------------------------------------
2680:
2681:
2682: $_=$uword;
2683: if ((s/ψεν$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2684: {
2685: $nf.="$_/V ";
2686: }
2687:
2688: #-------------------------------------
2689:
2690:
2691: $_=$uword;
2692: if ((s/ψενσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2693: {
2694: $nf.="$_/V ";
2695: }
2696:
2697: #-------------------------------------
2698:
2699:
2700: $_=$uword;
2701: if ((s/ψεϋψ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2702: {
2703: $nf.="$_/V ";
2704: }
2705:
2706: #-------------------------------------
2707:
2708:
2709: $_=$uword;
2710: if ((s/ψεϋψσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2711: {
2712: $nf.="$_/V ";
2713: }
2714:
2715: #-------------------------------------
2716:
2717:
2718: $_=$uword;
2719: if ((s/ψετε$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2720: {
2721: $nf.="$_/V ";
2722: }
2723:
2724: #-------------------------------------
2725:
2726:
2727: $_=$uword;
2728: if ((s/ψετεσψ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2729: {
2730: $nf.="$_/V ";
2731: }
2732:
2733: #-------------------------------------
2734:
2735:
2736: $_=$uword;
2737: if ((s/ψετ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2738: {
2739: $nf.="$_/V ";
2740: }
2741:
2742: #-------------------------------------
2743:
2744:
2745: $_=$uword;
2746: if ((s/ψετσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2747: {
2748: $nf.="$_/V ";
2749: }
2750:
2751: #-------------------------------------
2752:
2753:
2754: $_=$uword;
2755: if ((s/ψΰτ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2756: {
2757: $nf.="$_/V ";
2758: }
2759:
2760: #-------------------------------------
2761:
2762:
2763: $_=$uword;
2764: if ((s/ψΰτσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2765: {
2766: $nf.="$_/V ";
2767: }
2768:
2769: #-------------------------------------
2770:
2771:
2772: $_=$uword;
2773: if ((s/χυ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2774: {
2775: $nf.="$_/V ";
2776: }
2777:
2778: #-------------------------------------
2779:
2780:
2781: $_=$uword;
2782: if ((s/χυσψ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2783: {
2784: $nf.="$_/V ";
2785: }
2786:
2787: #-------------------------------------
2788:
2789:
2790: $_=$uword;
2791: if ((s/χεν$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2792: {
2793: $nf.="$_/V ";
2794: }
2795:
2796: #-------------------------------------
2797:
2798:
2799: $_=$uword;
2800: if ((s/χενσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2801: {
2802: $nf.="$_/V ";
2803: }
2804:
2805: #-------------------------------------
2806:
2807:
2808: $_=$uword;
2809: if ((s/χεϋψ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2810: {
2811: $nf.="$_/V ";
2812: }
2813:
2814: #-------------------------------------
2815:
2816:
2817: $_=$uword;
2818: if ((s/χεϋψσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2819: {
2820: $nf.="$_/V ";
2821: }
2822:
2823: #-------------------------------------
2824:
2825:
2826: $_=$uword;
2827: if ((s/χετε$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2828: {
2829: $nf.="$_/V ";
2830: }
2831:
2832: #-------------------------------------
2833:
2834:
2835: $_=$uword;
2836: if ((s/χετεσψ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2837: {
2838: $nf.="$_/V ";
2839: }
2840:
2841: #-------------------------------------
2842:
2843:
2844: $_=$uword;
2845: if ((s/χετ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2846: {
2847: $nf.="$_/V ";
2848: }
2849:
2850: #-------------------------------------
2851:
2852:
2853: $_=$uword;
2854: if ((s/χετσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2855: {
2856: $nf.="$_/V ";
2857: }
2858:
2859: #-------------------------------------
2860:
2861:
2862: $_=$uword;
2863: if ((s/χυτ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2864: {
2865: $nf.="$_/V ";
2866: }
2867:
2868: #-------------------------------------
2869:
2870:
2871: $_=$uword;
2872: if ((s/χυτσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2873: {
2874: $nf.="$_/V ";
2875: }
2876:
2877: #-------------------------------------
2878:
2879:
2880: $_=$uword;
2881: if ((s/υΰ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2882: {
2883: $nf.="$_/V ";
2884: }
2885:
2886: #-------------------------------------
2887:
2888:
2889: $_=$uword;
2890: if ((s/υεν$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2891: {
2892: $nf.="$_/V ";
2893: }
2894:
2895: #-------------------------------------
2896:
2897:
2898: $_=$uword;
2899: if ((s/υεϋψ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2900: {
2901: $nf.="$_/V ";
2902: }
2903:
2904: #-------------------------------------
2905:
2906:
2907: $_=$uword;
2908: if ((s/υετε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2909: {
2910: $nf.="$_/V ";
2911: }
2912:
2913: #-------------------------------------
2914:
2915:
2916: $_=$uword;
2917: if ((s/υετ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2918: {
2919: $nf.="$_/V ";
2920: }
2921:
2922: #-------------------------------------
2923:
2924:
2925: $_=$uword;
2926: if ((s/υΰτ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2927: {
2928: $nf.="$_/V ";
2929: }
2930:
2931: #-------------------------------------
2932:
2933:
2934: $_=$uword;
2935: if ((s/υΰσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2936: {
2937: $nf.="$_/V ";
2938: }
2939:
2940: #-------------------------------------
2941:
2942:
2943: $_=$uword;
2944: if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2945: {
2946: $nf.="$_/V ";
2947: }
2948:
2949: #-------------------------------------
2950:
2951:
2952: $_=$uword;
2953: if ((s/υεϋψσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2954: {
2955: $nf.="$_/V ";
2956: }
2957:
2958: #-------------------------------------
2959:
2960:
2961: $_=$uword;
2962: if ((s/υετεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2963: {
2964: $nf.="$_/V ";
2965: }
2966:
2967: #-------------------------------------
2968:
2969:
2970: $_=$uword;
2971: if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2972: {
2973: $nf.="$_/V ";
2974: }
2975:
2976: #-------------------------------------
2977:
2978:
2979: $_=$uword;
2980: if ((s/υΰτσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2981: {
2982: $nf.="$_/V ";
2983: }
2984:
2985: #-------------------------------------
2986:
2987:
2988: $_=$uword;
2989: if ((s/ΰΰ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2990: {
2991: $nf.="$_/V ";
2992: }
2993:
2994: #-------------------------------------
2995:
2996:
2997: $_=$uword;
2998: if ((s/ΰεν$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
2999: {
3000: $nf.="$_/V ";
3001: }
3002:
3003: #-------------------------------------
3004:
3005:
3006: $_=$uword;
3007: if ((s/ΰεϋψ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3008: {
3009: $nf.="$_/V ";
3010: }
3011:
3012: #-------------------------------------
3013:
3014:
3015: $_=$uword;
3016: if ((s/ΰετε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3017: {
3018: $nf.="$_/V ";
3019: }
3020:
3021: #-------------------------------------
3022:
3023:
3024: $_=$uword;
3025: if ((s/ΰετ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3026: {
3027: $nf.="$_/V ";
3028: }
3029:
3030: #-------------------------------------
3031:
3032:
3033: $_=$uword;
3034: if ((s/ΰΰτ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3035: {
3036: $nf.="$_/V ";
3037: }
3038:
3039: #-------------------------------------
3040:
3041:
3042: $_=$uword;
3043: if ((s/ΰΰσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3044: {
3045: $nf.="$_/V ";
3046: }
3047:
3048: #-------------------------------------
3049:
3050:
3051: $_=$uword;
3052: if ((s/ΰενσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3053: {
3054: $nf.="$_/V ";
3055: }
3056:
3057: #-------------------------------------
3058:
3059:
3060: $_=$uword;
3061: if ((s/ΰεϋψσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3062: {
3063: $nf.="$_/V ";
3064: }
3065:
3066: #-------------------------------------
3067:
3068:
3069: $_=$uword;
3070: if ((s/ΰετεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3071: {
3072: $nf.="$_/V ";
3073: }
3074:
3075: #-------------------------------------
3076:
3077:
3078: $_=$uword;
3079: if ((s/ΰετσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3080: {
3081: $nf.="$_/V ";
3082: }
3083:
3084: #-------------------------------------
3085:
3086:
3087: $_=$uword;
3088: if ((s/ΰΰτσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3089: {
3090: $nf.="$_/V ";
3091: }
3092:
3093: #-------------------------------------
3094:
3095:
3096: $_=$uword;
3097: if ((s/υΰ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3098: {
3099: $nf.="$_/V ";
3100: }
3101:
3102: #-------------------------------------
3103:
3104:
3105: $_=$uword;
3106: if ((s/υεν$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3107: {
3108: $nf.="$_/V ";
3109: }
3110:
3111: #-------------------------------------
3112:
3113:
3114: $_=$uword;
3115: if ((s/υεϋψ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3116: {
3117: $nf.="$_/V ";
3118: }
3119:
3120: #-------------------------------------
3121:
3122:
3123: $_=$uword;
3124: if ((s/υετε$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3125: {
3126: $nf.="$_/V ";
3127: }
3128:
3129: #-------------------------------------
3130:
3131:
3132: $_=$uword;
3133: if ((s/υετ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3134: {
3135: $nf.="$_/V ";
3136: }
3137:
3138: #-------------------------------------
3139:
3140:
3141: $_=$uword;
3142: if ((s/υΰτ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3143: {
3144: $nf.="$_/V ";
3145: }
3146:
3147: #-------------------------------------
3148:
3149:
3150: $_=$uword;
3151: if ((s/υΰσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3152: {
3153: $nf.="$_/V ";
3154: }
3155:
3156: #-------------------------------------
3157:
3158:
3159: $_=$uword;
3160: if ((s/υενσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3161: {
3162: $nf.="$_/V ";
3163: }
3164:
3165: #-------------------------------------
3166:
3167:
3168: $_=$uword;
3169: if ((s/υεϋψσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3170: {
3171: $nf.="$_/V ";
3172: }
3173:
3174: #-------------------------------------
3175:
3176:
3177: $_=$uword;
3178: if ((s/υετεσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3179: {
3180: $nf.="$_/V ";
3181: }
3182:
3183: #-------------------------------------
3184:
3185:
3186: $_=$uword;
3187: if ((s/υετσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3188: {
3189: $nf.="$_/V ";
3190: }
3191:
3192: #-------------------------------------
3193:
3194:
3195: $_=$uword;
3196: if ((s/υΰτσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3197: {
3198: $nf.="$_/V ";
3199: }
3200:
3201: #-------------------------------------
3202:
3203:
3204: $_=$uword;
3205: if ((s/ξυ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3206: {
3207: $nf.="$_/V ";
3208: }
3209:
3210: #-------------------------------------
3211:
3212:
3213: $_=$uword;
3214: if ((s/ξυσψ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3215: {
3216: $nf.="$_/V ";
3217: }
3218:
3219: #-------------------------------------
3220:
3221:
3222: $_=$uword;
3223: if ((s/ξεν$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3224: {
3225: $nf.="$_/V ";
3226: }
3227:
3228: #-------------------------------------
3229:
3230:
3231: $_=$uword;
3232: if ((s/ξενσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3233: {
3234: $nf.="$_/V ";
3235: }
3236:
3237: #-------------------------------------
3238:
3239:
3240: $_=$uword;
3241: if ((s/ξεϋψ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3242: {
3243: $nf.="$_/V ";
3244: }
3245:
3246: #-------------------------------------
3247:
3248:
3249: $_=$uword;
3250: if ((s/ξεϋψσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3251: {
3252: $nf.="$_/V ";
3253: }
3254:
3255: #-------------------------------------
3256:
3257:
3258: $_=$uword;
3259: if ((s/ξετε$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3260: {
3261: $nf.="$_/V ";
3262: }
3263:
3264: #-------------------------------------
3265:
3266:
3267: $_=$uword;
3268: if ((s/ξετεσψ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3269: {
3270: $nf.="$_/V ";
3271: }
3272:
3273: #-------------------------------------
3274:
3275:
3276: $_=$uword;
3277: if ((s/ξετ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3278: {
3279: $nf.="$_/V ";
3280: }
3281:
3282: #-------------------------------------
3283:
3284:
3285: $_=$uword;
3286: if ((s/ξετσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3287: {
3288: $nf.="$_/V ";
3289: }
3290:
3291: #-------------------------------------
3292:
3293:
3294: $_=$uword;
3295: if ((s/ξυτ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3296: {
3297: $nf.="$_/V ";
3298: }
3299:
3300: #-------------------------------------
3301:
3302:
3303: $_=$uword;
3304: if ((s/ξυτσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3305: {
3306: $nf.="$_/V ";
3307: }
3308:
3309: #-------------------------------------
3310:
3311:
3312: $_=$uword;
3313: if ((s/ΰ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3314: {
3315: $nf.="$_/V ";
3316: }
3317:
3318: #-------------------------------------
3319:
3320:
3321: $_=$uword;
3322: if ((s/ΰσψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3323: {
3324: $nf.="$_/V ";
3325: }
3326:
3327: #-------------------------------------
3328:
3329:
3330: $_=$uword;
3331: if ((s/εν$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3332: {
3333: $nf.="$_/V ";
3334: }
3335:
3336: #-------------------------------------
3337:
3338:
3339: $_=$uword;
3340: if ((s/ενσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3341: {
3342: $nf.="$_/V ";
3343: }
3344:
3345: #-------------------------------------
3346:
3347:
3348: $_=$uword;
3349: if ((s/εϋψ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3350: {
3351: $nf.="$_/V ";
3352: }
3353:
3354: #-------------------------------------
3355:
3356:
3357: $_=$uword;
3358: if ((s/εϋψσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3359: {
3360: $nf.="$_/V ";
3361: }
3362:
3363: #-------------------------------------
3364:
3365:
3366: $_=$uword;
3367: if ((s/ετε$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3368: {
3369: $nf.="$_/V ";
3370: }
3371:
3372: #-------------------------------------
3373:
3374:
3375: $_=$uword;
3376: if ((s/ετεσψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3377: {
3378: $nf.="$_/V ";
3379: }
3380:
3381: #-------------------------------------
3382:
3383:
3384: $_=$uword;
3385: if ((s/ετ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3386: {
3387: $nf.="$_/V ";
3388: }
3389:
3390: #-------------------------------------
3391:
3392:
3393: $_=$uword;
3394: if ((s/ετσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3395: {
3396: $nf.="$_/V ";
3397: }
3398:
3399: #-------------------------------------
3400:
3401:
3402: $_=$uword;
3403: if ((s/ΰτ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3404: {
3405: $nf.="$_/V ";
3406: }
3407:
3408: #-------------------------------------
3409:
3410:
3411: $_=$uword;
3412: if ((s/ΰτσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3413: {
3414: $nf.="$_/V ";
3415: }
3416:
3417: #-------------------------------------
3418:
3419:
3420: $_=$uword;
3421: if ((s/δυ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3422: {
3423: $nf.="$_/V ";
3424: }
3425:
3426: #-------------------------------------
3427:
3428:
3429: $_=$uword;
3430: if ((s/δυσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3431: {
3432: $nf.="$_/V ";
3433: }
3434:
3435: #-------------------------------------
3436:
3437:
3438: $_=$uword;
3439: if ((s/δεν$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3440: {
3441: $nf.="$_/V ";
3442: }
3443:
3444: #-------------------------------------
3445:
3446:
3447: $_=$uword;
3448: if ((s/δενσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3449: {
3450: $nf.="$_/V ";
3451: }
3452:
3453: #-------------------------------------
3454:
3455:
3456: $_=$uword;
3457: if ((s/δεϋψ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3458: {
3459: $nf.="$_/V ";
3460: }
3461:
3462: #-------------------------------------
3463:
3464:
3465: $_=$uword;
3466: if ((s/δεϋψσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3467: {
3468: $nf.="$_/V ";
3469: }
3470:
3471: #-------------------------------------
3472:
3473:
3474: $_=$uword;
3475: if ((s/δετε$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3476: {
3477: $nf.="$_/V ";
3478: }
3479:
3480: #-------------------------------------
3481:
3482:
3483: $_=$uword;
3484: if ((s/δετεσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3485: {
3486: $nf.="$_/V ";
3487: }
3488:
3489: #-------------------------------------
3490:
3491:
3492: $_=$uword;
3493: if ((s/δετ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3494: {
3495: $nf.="$_/V ";
3496: }
3497:
3498: #-------------------------------------
3499:
3500:
3501: $_=$uword;
3502: if ((s/δετσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3503: {
3504: $nf.="$_/V ";
3505: }
3506:
3507: #-------------------------------------
3508:
3509:
3510: $_=$uword;
3511: if ((s/δυτ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3512: {
3513: $nf.="$_/V ";
3514: }
3515:
3516: #-------------------------------------
3517:
3518:
3519: $_=$uword;
3520: if ((s/δυτσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3521: {
3522: $nf.="$_/V ";
3523: }
3524:
3525: #-------------------------------------
3526:
3527:
3528: $_=$uword;
3529: if ((s/μΰ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3530: {
3531: $nf.="$_/V ";
3532: }
3533:
3534: #-------------------------------------
3535:
3536:
3537: $_=$uword;
3538: if ((s/μΰσψ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3539: {
3540: $nf.="$_/V ";
3541: }
3542:
3543: #-------------------------------------
3544:
3545:
3546: $_=$uword;
3547: if ((s/μεν$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3548: {
3549: $nf.="$_/V ";
3550: }
3551:
3552: #-------------------------------------
3553:
3554:
3555: $_=$uword;
3556: if ((s/μενσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3557: {
3558: $nf.="$_/V ";
3559: }
3560:
3561: #-------------------------------------
3562:
3563:
3564: $_=$uword;
3565: if ((s/μεϋψ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3566: {
3567: $nf.="$_/V ";
3568: }
3569:
3570: #-------------------------------------
3571:
3572:
3573: $_=$uword;
3574: if ((s/μεϋψσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3575: {
3576: $nf.="$_/V ";
3577: }
3578:
3579: #-------------------------------------
3580:
3581:
3582: $_=$uword;
3583: if ((s/μετε$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3584: {
3585: $nf.="$_/V ";
3586: }
3587:
3588: #-------------------------------------
3589:
3590:
3591: $_=$uword;
3592: if ((s/μετεσψ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3593: {
3594: $nf.="$_/V ";
3595: }
3596:
3597: #-------------------------------------
3598:
3599:
3600: $_=$uword;
3601: if ((s/μετ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3602: {
3603: $nf.="$_/V ";
3604: }
3605:
3606: #-------------------------------------
3607:
3608:
3609: $_=$uword;
3610: if ((s/μετσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3611: {
3612: $nf.="$_/V ";
3613: }
3614:
3615: #-------------------------------------
3616:
3617:
3618: $_=$uword;
3619: if ((s/μΰτ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3620: {
3621: $nf.="$_/V ";
3622: }
3623:
3624: #-------------------------------------
3625:
3626:
3627: $_=$uword;
3628: if ((s/μΰτσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3629: {
3630: $nf.="$_/V ";
3631: }
3632:
3633: #-------------------------------------
3634:
3635:
3636: $_=$uword;
3637: if ((s/ρηυ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3638: {
3639: $nf.="$_/V ";
3640: }
3641:
3642: #-------------------------------------
3643:
3644:
3645: $_=$uword;
3646: if ((s/ρηυσψ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3647: {
3648: $nf.="$_/V ";
3649: }
3650:
3651: #-------------------------------------
3652:
3653:
3654: $_=$uword;
3655: if ((s/ρφεν$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3656: {
3657: $nf.="$_/V ";
3658: }
3659:
3660: #-------------------------------------
3661:
3662:
3663: $_=$uword;
3664: if ((s/ρφενσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3665: {
3666: $nf.="$_/V ";
3667: }
3668:
3669: #-------------------------------------
3670:
3671:
3672: $_=$uword;
3673: if ((s/ρφεϋψ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3674: {
3675: $nf.="$_/V ";
3676: }
3677:
3678: #-------------------------------------
3679:
3680:
3681: $_=$uword;
3682: if ((s/ρφεϋψσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3683: {
3684: $nf.="$_/V ";
3685: }
3686:
3687: #-------------------------------------
3688:
3689:
3690: $_=$uword;
3691: if ((s/ρφετε$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3692: {
3693: $nf.="$_/V ";
3694: }
3695:
3696: #-------------------------------------
3697:
3698:
3699: $_=$uword;
3700: if ((s/ρφετεσψ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3701: {
3702: $nf.="$_/V ";
3703: }
3704:
3705: #-------------------------------------
3706:
3707:
3708: $_=$uword;
3709: if ((s/ρφετ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3710: {
3711: $nf.="$_/V ";
3712: }
3713:
3714: #-------------------------------------
3715:
3716:
3717: $_=$uword;
3718: if ((s/ρφετσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3719: {
3720: $nf.="$_/V ";
3721: }
3722:
3723: #-------------------------------------
3724:
3725:
3726: $_=$uword;
3727: if ((s/ρηυτ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3728: {
3729: $nf.="$_/V ";
3730: }
3731:
3732: #-------------------------------------
3733:
3734:
3735: $_=$uword;
3736: if ((s/ρηυτσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3737: {
3738: $nf.="$_/V ";
3739: }
3740:
3741: #-------------------------------------
3742:
3743:
3744: $_=$uword;
3745: if ((s/ΰ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3746: {
3747: $nf.="$_/V ";
3748: }
3749:
3750: #-------------------------------------
3751:
3752:
3753: $_=$uword;
3754: if ((s/εν$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3755: {
3756: $nf.="$_/V ";
3757: }
3758:
3759: #-------------------------------------
3760:
3761:
3762: $_=$uword;
3763: if ((s/εϋψ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3764: {
3765: $nf.="$_/V ";
3766: }
3767:
3768: #-------------------------------------
3769:
3770:
3771: $_=$uword;
3772: if ((s/ετε$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3773: {
3774: $nf.="$_/V ";
3775: }
3776:
3777: #-------------------------------------
3778:
3779:
3780: $_=$uword;
3781: if ((s/ετ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3782: {
3783: $nf.="$_/V ";
3784: }
3785:
3786: #-------------------------------------
3787:
3788:
3789: $_=$uword;
3790: if ((s/ΰτ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3791: {
3792: $nf.="$_/V ";
3793: }
3794:
3795: #-------------------------------------
3796:
3797:
3798: $_=$uword;
3799: if ((s/ΰσψ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3800: {
3801: $nf.="$_/V ";
3802: }
3803:
3804: #-------------------------------------
3805:
3806:
3807: $_=$uword;
3808: if ((s/ενσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3809: {
3810: $nf.="$_/V ";
3811: }
3812:
3813: #-------------------------------------
3814:
3815:
3816: $_=$uword;
3817: if ((s/εϋψσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3818: {
3819: $nf.="$_/V ";
3820: }
3821:
3822: #-------------------------------------
3823:
3824:
3825: $_=$uword;
3826: if ((s/ετεσψ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3827: {
3828: $nf.="$_/V ";
3829: }
3830:
3831: #-------------------------------------
3832:
3833:
3834: $_=$uword;
3835: if ((s/ετσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3836: {
3837: $nf.="$_/V ";
3838: }
3839:
3840: #-------------------------------------
3841:
3842:
3843: $_=$uword;
3844: if ((s/ΰτσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3845: {
3846: $nf.="$_/V ";
3847: }
3848:
3849: #-------------------------------------
3850:
3851:
3852: $_=$uword;
3853: if ((s/υ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3854: {
3855: $nf.="$_/V ";
3856: }
3857:
3858: #-------------------------------------
3859:
3860:
3861: $_=$uword;
3862: if ((s/εν$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3863: {
3864: $nf.="$_/V ";
3865: }
3866:
3867: #-------------------------------------
3868:
3869:
3870: $_=$uword;
3871: if ((s/εϋψ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3872: {
3873: $nf.="$_/V ";
3874: }
3875:
3876: #-------------------------------------
3877:
3878:
3879: $_=$uword;
3880: if ((s/ετε$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3881: {
3882: $nf.="$_/V ";
3883: }
3884:
3885: #-------------------------------------
3886:
3887:
3888: $_=$uword;
3889: if ((s/ετ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3890: {
3891: $nf.="$_/V ";
3892: }
3893:
3894: #-------------------------------------
3895:
3896:
3897: $_=$uword;
3898: if ((s/υτ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
3899: {
3900: $nf.="$_/V ";
3901: }
3902:
3903: #-------------------------------------
3904:
3905:
3906: $_=$uword;
3907: if ((s/φυ$/δετψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3908: {
3909: $nf.="$_/Y ";
3910: }
3911:
3912: #-------------------------------------
3913:
3914:
3915: $_=$uword;
3916: if ((s/φυσψ$/δετψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3917: {
3918: $nf.="$_/Y ";
3919: }
3920:
3921: #-------------------------------------
3922:
3923:
3924: $_=$uword;
3925: if ((s/μΰ$/ετψ/) && (m/πετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3926: {
3927: $nf.="$_/Y ";
3928: }
3929:
3930: #-------------------------------------
3931:
3932:
3933: $_=$uword;
3934: if ((s/μΰσψ$/ετψσρ/) && (m/πετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3935: {
3936: $nf.="$_/Y ";
3937: }
3938:
3939: #-------------------------------------
3940:
3941:
3942: $_=$uword;
3943: if ((s/ΰ$/ετψ/) && (m/ςετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3944: {
3945: $nf.="$_/Y ";
3946: }
3947:
3948: #-------------------------------------
3949:
3950:
3951: $_=$uword;
3952: if ((s/ΰσψ$/ετψσρ/) && (m/ςετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3953: {
3954: $nf.="$_/Y ";
3955: }
3956:
3957: #-------------------------------------
3958:
3959:
3960: $_=$uword;
3961: if ((s/ϋυ$/σετψ/) && (m/σετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3962: {
3963: $nf.="$_/Y ";
3964: }
3965:
3966: #-------------------------------------
3967:
3968:
3969: $_=$uword;
3970: if ((s/ιν$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3971: {
3972: $nf.="$_/Y ";
3973: }
3974:
3975: #-------------------------------------
3976:
3977:
3978: $_=$uword;
3979: if ((s/ινσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3980: {
3981: $nf.="$_/Y ";
3982: }
3983:
3984: #-------------------------------------
3985:
3986:
3987: $_=$uword;
3988: if ((s/ιϋψ$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3989: {
3990: $nf.="$_/Y ";
3991: }
3992:
3993: #-------------------------------------
3994:
3995:
3996: $_=$uword;
3997: if ((s/ιϋψσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
3998: {
3999: $nf.="$_/Y ";
4000: }
4001:
4002: #-------------------------------------
4003:
4004:
4005: $_=$uword;
4006: if ((s/ιτε$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4007: {
4008: $nf.="$_/Y ";
4009: }
4010:
4011: #-------------------------------------
4012:
4013:
4014: $_=$uword;
4015: if ((s/ιτεσψ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4016: {
4017: $nf.="$_/Y ";
4018: }
4019:
4020: #-------------------------------------
4021:
4022:
4023: $_=$uword;
4024: if ((s/ιτ$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4025: {
4026: $nf.="$_/Y ";
4027: }
4028:
4029: #-------------------------------------
4030:
4031:
4032: $_=$uword;
4033: if ((s/ιτσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4034: {
4035: $nf.="$_/Y ";
4036: }
4037:
4038: #-------------------------------------
4039:
4040:
4041: $_=$uword;
4042: if ((s/ρτ$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4043: {
4044: $nf.="$_/Y ";
4045: }
4046:
4047: #-------------------------------------
4048:
4049:
4050: $_=$uword;
4051: if ((s/ρτσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4052: {
4053: $nf.="$_/Y ";
4054: }
4055:
4056: #-------------------------------------
4057:
4058:
4059: $_=$uword;
4060: if ((s/υδυ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4061: {
4062: $nf.="$_/Y ";
4063: }
4064:
4065: #-------------------------------------
4066:
4067:
4068: $_=$uword;
4069: if ((s/υδυσψ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4070: {
4071: $nf.="$_/Y ";
4072: }
4073:
4074: #-------------------------------------
4075:
4076:
4077: $_=$uword;
4078: if ((s/υδεν$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4079: {
4080: $nf.="$_/Y ";
4081: }
4082:
4083: #-------------------------------------
4084:
4085:
4086: $_=$uword;
4087: if ((s/υδενσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4088: {
4089: $nf.="$_/Y ";
4090: }
4091:
4092: #-------------------------------------
4093:
4094:
4095: $_=$uword;
4096: if ((s/υδεϋψ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4097: {
4098: $nf.="$_/Y ";
4099: }
4100:
4101: #-------------------------------------
4102:
4103:
4104: $_=$uword;
4105: if ((s/υδεϋψσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4106: {
4107: $nf.="$_/Y ";
4108: }
4109:
4110: #-------------------------------------
4111:
4112:
4113: $_=$uword;
4114: if ((s/υδετε$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4115: {
4116: $nf.="$_/Y ";
4117: }
4118:
4119: #-------------------------------------
4120:
4121:
4122: $_=$uword;
4123: if ((s/υδετεσψ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4124: {
4125: $nf.="$_/Y ";
4126: }
4127:
4128: #-------------------------------------
4129:
4130:
4131: $_=$uword;
4132: if ((s/υδετ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4133: {
4134: $nf.="$_/Y ";
4135: }
4136:
4137: #-------------------------------------
4138:
4139:
4140: $_=$uword;
4141: if ((s/υδετσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4142: {
4143: $nf.="$_/Y ";
4144: }
4145:
4146: #-------------------------------------
4147:
4148:
4149: $_=$uword;
4150: if ((s/υδυτ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4151: {
4152: $nf.="$_/Y ";
4153: }
4154:
4155: #-------------------------------------
4156:
4157:
4158: $_=$uword;
4159: if ((s/υδυτσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4160: {
4161: $nf.="$_/Y ";
4162: }
4163:
4164: #-------------------------------------
4165:
4166:
4167: $_=$uword;
4168: if ((s/χυ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4169: {
4170: $nf.="$_/Y ";
4171: }
4172:
4173: #-------------------------------------
4174:
4175:
4176: $_=$uword;
4177: if ((s/χυσψ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4178: {
4179: $nf.="$_/Y ";
4180: }
4181:
4182: #-------------------------------------
4183:
4184:
4185: $_=$uword;
4186: if ((s/χεν$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4187: {
4188: $nf.="$_/Y ";
4189: }
4190:
4191: #-------------------------------------
4192:
4193:
4194: $_=$uword;
4195: if ((s/χενσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4196: {
4197: $nf.="$_/Y ";
4198: }
4199:
4200: #-------------------------------------
4201:
4202:
4203: $_=$uword;
4204: if ((s/χεϋψ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4205: {
4206: $nf.="$_/Y ";
4207: }
4208:
4209: #-------------------------------------
4210:
4211:
4212: $_=$uword;
4213: if ((s/χεϋψσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4214: {
4215: $nf.="$_/Y ";
4216: }
4217:
4218: #-------------------------------------
4219:
4220:
4221: $_=$uword;
4222: if ((s/χετε$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4223: {
4224: $nf.="$_/Y ";
4225: }
4226:
4227: #-------------------------------------
4228:
4229:
4230: $_=$uword;
4231: if ((s/χετεσψ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4232: {
4233: $nf.="$_/Y ";
4234: }
4235:
4236: #-------------------------------------
4237:
4238:
4239: $_=$uword;
4240: if ((s/χετ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4241: {
4242: $nf.="$_/Y ";
4243: }
4244:
4245: #-------------------------------------
4246:
4247:
4248: $_=$uword;
4249: if ((s/χετσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4250: {
4251: $nf.="$_/Y ";
4252: }
4253:
4254: #-------------------------------------
4255:
4256:
4257: $_=$uword;
4258: if ((s/χυτ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4259: {
4260: $nf.="$_/Y ";
4261: }
4262:
4263: #-------------------------------------
4264:
4265:
4266: $_=$uword;
4267: if ((s/χυτσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4268: {
4269: $nf.="$_/Y ";
4270: }
4271:
4272: #-------------------------------------
4273:
4274:
4275: $_=$uword;
4276: if ((s/φυ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4277: {
4278: $nf.="$_/Y ";
4279: }
4280:
4281: #-------------------------------------
4282:
4283:
4284: $_=$uword;
4285: if ((s/φυσψ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4286: {
4287: $nf.="$_/Y ";
4288: }
4289:
4290: #-------------------------------------
4291:
4292:
4293: $_=$uword;
4294: if ((s/φεν$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4295: {
4296: $nf.="$_/Y ";
4297: }
4298:
4299: #-------------------------------------
4300:
4301:
4302: $_=$uword;
4303: if ((s/φενσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4304: {
4305: $nf.="$_/Y ";
4306: }
4307:
4308: #-------------------------------------
4309:
4310:
4311: $_=$uword;
4312: if ((s/φεϋψ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4313: {
4314: $nf.="$_/Y ";
4315: }
4316:
4317: #-------------------------------------
4318:
4319:
4320: $_=$uword;
4321: if ((s/φεϋψσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4322: {
4323: $nf.="$_/Y ";
4324: }
4325:
4326: #-------------------------------------
4327:
4328:
4329: $_=$uword;
4330: if ((s/φετε$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4331: {
4332: $nf.="$_/Y ";
4333: }
4334:
4335: #-------------------------------------
4336:
4337:
4338: $_=$uword;
4339: if ((s/φετεσψ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4340: {
4341: $nf.="$_/Y ";
4342: }
4343:
4344: #-------------------------------------
4345:
4346:
4347: $_=$uword;
4348: if ((s/φετ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4349: {
4350: $nf.="$_/Y ";
4351: }
4352:
4353: #-------------------------------------
4354:
4355:
4356: $_=$uword;
4357: if ((s/φετσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4358: {
4359: $nf.="$_/Y ";
4360: }
4361:
4362: #-------------------------------------
4363:
4364:
4365: $_=$uword;
4366: if ((s/φυτ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4367: {
4368: $nf.="$_/Y ";
4369: }
4370:
4371: #-------------------------------------
4372:
4373:
4374: $_=$uword;
4375: if ((s/φυτσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4376: {
4377: $nf.="$_/Y ";
4378: }
4379:
4380: #-------------------------------------
4381:
4382:
4383: $_=$uword;
4384: if ((s/ϋυ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4385: {
4386: $nf.="$_/Y ";
4387: }
4388:
4389: #-------------------------------------
4390:
4391:
4392: $_=$uword;
4393: if ((s/ϋυσψ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4394: {
4395: $nf.="$_/Y ";
4396: }
4397:
4398: #-------------------------------------
4399:
4400:
4401: $_=$uword;
4402: if ((s/ϋεν$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4403: {
4404: $nf.="$_/Y ";
4405: }
4406:
4407: #-------------------------------------
4408:
4409:
4410: $_=$uword;
4411: if ((s/ϋενσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4412: {
4413: $nf.="$_/Y ";
4414: }
4415:
4416: #-------------------------------------
4417:
4418:
4419: $_=$uword;
4420: if ((s/ϋεϋψ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4421: {
4422: $nf.="$_/Y ";
4423: }
4424:
4425: #-------------------------------------
4426:
4427:
4428: $_=$uword;
4429: if ((s/ϋεϋψσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4430: {
4431: $nf.="$_/Y ";
4432: }
4433:
4434: #-------------------------------------
4435:
4436:
4437: $_=$uword;
4438: if ((s/ϋετε$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4439: {
4440: $nf.="$_/Y ";
4441: }
4442:
4443: #-------------------------------------
4444:
4445:
4446: $_=$uword;
4447: if ((s/ϋετεσψ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4448: {
4449: $nf.="$_/Y ";
4450: }
4451:
4452: #-------------------------------------
4453:
4454:
4455: $_=$uword;
4456: if ((s/ϋετ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4457: {
4458: $nf.="$_/Y ";
4459: }
4460:
4461: #-------------------------------------
4462:
4463:
4464: $_=$uword;
4465: if ((s/ϋετσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4466: {
4467: $nf.="$_/Y ";
4468: }
4469:
4470: #-------------------------------------
4471:
4472:
4473: $_=$uword;
4474: if ((s/ϋυτ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4475: {
4476: $nf.="$_/Y ";
4477: }
4478:
4479: #-------------------------------------
4480:
4481:
4482: $_=$uword;
4483: if ((s/ϋυτσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4484: {
4485: $nf.="$_/Y ";
4486: }
4487:
4488: #-------------------------------------
4489:
4490:
4491: $_=$uword;
4492: if ((s/υ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4493: {
4494: $nf.="$_/Y ";
4495: }
4496:
4497: #-------------------------------------
4498:
4499:
4500: $_=$uword;
4501: if ((s/υσψ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4502: {
4503: $nf.="$_/Y ";
4504: }
4505:
4506: #-------------------------------------
4507:
4508:
4509: $_=$uword;
4510: if ((s/εν$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4511: {
4512: $nf.="$_/Y ";
4513: }
4514:
4515: #-------------------------------------
4516:
4517:
4518: $_=$uword;
4519: if ((s/ενσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4520: {
4521: $nf.="$_/Y ";
4522: }
4523:
4524: #-------------------------------------
4525:
4526:
4527: $_=$uword;
4528: if ((s/εϋψ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4529: {
4530: $nf.="$_/Y ";
4531: }
4532:
4533: #-------------------------------------
4534:
4535:
4536: $_=$uword;
4537: if ((s/εϋψσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4538: {
4539: $nf.="$_/Y ";
4540: }
4541:
4542: #-------------------------------------
4543:
4544:
4545: $_=$uword;
4546: if ((s/ετε$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4547: {
4548: $nf.="$_/Y ";
4549: }
4550:
4551: #-------------------------------------
4552:
4553:
4554: $_=$uword;
4555: if ((s/ετεσψ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4556: {
4557: $nf.="$_/Y ";
4558: }
4559:
4560: #-------------------------------------
4561:
4562:
4563: $_=$uword;
4564: if ((s/ετ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4565: {
4566: $nf.="$_/Y ";
4567: }
4568:
4569: #-------------------------------------
4570:
4571:
4572: $_=$uword;
4573: if ((s/ετσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4574: {
4575: $nf.="$_/Y ";
4576: }
4577:
4578: #-------------------------------------
4579:
4580:
4581: $_=$uword;
4582: if ((s/υτ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4583: {
4584: $nf.="$_/Y ";
4585: }
4586:
4587: #-------------------------------------
4588:
4589:
4590: $_=$uword;
4591: if ((s/υτσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4592: {
4593: $nf.="$_/Y ";
4594: }
4595:
4596: #-------------------------------------
4597:
4598:
4599: $_=$uword;
4600: if ((s/ηυ$/φατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4601: {
4602: $nf.="$_/Y ";
4603: }
4604:
4605: #-------------------------------------
4606:
4607:
4608: $_=$uword;
4609: if ((s/ηυσψ$/φατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4610: {
4611: $nf.="$_/Y ";
4612: }
4613:
4614: #-------------------------------------
4615:
4616:
4617: $_=$uword;
4618: if ((s/ιν$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4619: {
4620: $nf.="$_/Y ";
4621: }
4622:
4623: #-------------------------------------
4624:
4625:
4626: $_=$uword;
4627: if ((s/ινσρ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4628: {
4629: $nf.="$_/Y ";
4630: }
4631:
4632: #-------------------------------------
4633:
4634:
4635: $_=$uword;
4636: if ((s/ιϋψ$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4637: {
4638: $nf.="$_/Y ";
4639: }
4640:
4641: #-------------------------------------
4642:
4643:
4644: $_=$uword;
4645: if ((s/ιϋψσρ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4646: {
4647: $nf.="$_/Y ";
4648: }
4649:
4650: #-------------------------------------
4651:
4652:
4653: $_=$uword;
4654: if ((s/ιτε$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4655: {
4656: $nf.="$_/Y ";
4657: }
4658:
4659: #-------------------------------------
4660:
4661:
4662: $_=$uword;
4663: if ((s/ιτεσψ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4664: {
4665: $nf.="$_/Y ";
4666: }
4667:
4668: #-------------------------------------
4669:
4670:
4671: $_=$uword;
4672: if ((s/ιτ$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4673: {
4674: $nf.="$_/Y ";
4675: }
4676:
4677: #-------------------------------------
4678:
4679:
4680: $_=$uword;
4681: if ((s/ιτσρ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4682: {
4683: $nf.="$_/Y ";
4684: }
4685:
4686: #-------------------------------------
4687:
4688:
4689: $_=$uword;
4690: if ((s/ηυτ$/φατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4691: {
4692: $nf.="$_/Y ";
4693: }
4694:
4695: #-------------------------------------
4696:
4697:
4698: $_=$uword;
4699: if ((s/ηυτσρ$/φατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4700: {
4701: $nf.="$_/Y ";
4702: }
4703:
4704: #-------------------------------------
4705:
4706:
4707: $_=$uword;
4708: if ((s/ΰ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4709: {
4710: $nf.="$_/Y ";
4711: }
4712:
4713: #-------------------------------------
4714:
4715:
4716: $_=$uword;
4717: if ((s/εν$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4718: {
4719: $nf.="$_/Y ";
4720: }
4721:
4722: #-------------------------------------
4723:
4724:
4725: $_=$uword;
4726: if ((s/εϋψ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4727: {
4728: $nf.="$_/Y ";
4729: }
4730:
4731: #-------------------------------------
4732:
4733:
4734: $_=$uword;
4735: if ((s/ετε$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4736: {
4737: $nf.="$_/Y ";
4738: }
4739:
4740: #-------------------------------------
4741:
4742:
4743: $_=$uword;
4744: if ((s/ετ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4745: {
4746: $nf.="$_/Y ";
4747: }
4748:
4749: #-------------------------------------
4750:
4751:
4752: $_=$uword;
4753: if ((s/ΰτ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4754: {
4755: $nf.="$_/Y ";
4756: }
4757:
4758: #-------------------------------------
4759:
4760:
4761: $_=$uword;
4762: if ((s/ν$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4763: {
4764: $nf.="$_/Y ";
4765: }
4766:
4767: #-------------------------------------
4768:
4769:
4770: $_=$uword;
4771: if ((s/νσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4772: {
4773: $nf.="$_/Y ";
4774: }
4775:
4776: #-------------------------------------
4777:
4778:
4779: $_=$uword;
4780: if ((s/διν$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4781: {
4782: $nf.="$_/Y ";
4783: }
4784:
4785: #-------------------------------------
4786:
4787:
4788: $_=$uword;
4789: if ((s/δινσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4790: {
4791: $nf.="$_/Y ";
4792: }
4793:
4794: #-------------------------------------
4795:
4796:
4797: $_=$uword;
4798: if ((s/ϋψ$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4799: {
4800: $nf.="$_/Y ";
4801: }
4802:
4803: #-------------------------------------
4804:
4805:
4806: $_=$uword;
4807: if ((s/ϋψσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4808: {
4809: $nf.="$_/Y ";
4810: }
4811:
4812: #-------------------------------------
4813:
4814:
4815: $_=$uword;
4816: if ((s/διτε$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4817: {
4818: $nf.="$_/Y ";
4819: }
4820:
4821: #-------------------------------------
4822:
4823:
4824: $_=$uword;
4825: if ((s/διτεσψ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4826: {
4827: $nf.="$_/Y ";
4828: }
4829:
4830: #-------------------------------------
4831:
4832:
4833: $_=$uword;
4834: if ((s/στ$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4835: {
4836: $nf.="$_/Y ";
4837: }
4838:
4839: #-------------------------------------
4840:
4841:
4842: $_=$uword;
4843: if ((s/στσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4844: {
4845: $nf.="$_/Y ";
4846: }
4847:
4848: #-------------------------------------
4849:
4850:
4851: $_=$uword;
4852: if ((s/δυτ$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4853: {
4854: $nf.="$_/Y ";
4855: }
4856:
4857: #-------------------------------------
4858:
4859:
4860: $_=$uword;
4861: if ((s/δυτσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4862: {
4863: $nf.="$_/Y ";
4864: }
4865:
4866: #-------------------------------------
4867:
4868:
4869: $_=$uword;
4870: if ((s/ώυ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4871: {
4872: $nf.="$_/Y ";
4873: }
4874:
4875: #-------------------------------------
4876:
4877:
4878: $_=$uword;
4879: if ((s/ώυσψ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4880: {
4881: $nf.="$_/Y ";
4882: }
4883:
4884: #-------------------------------------
4885:
4886:
4887: $_=$uword;
4888: if ((s/ώεν$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4889: {
4890: $nf.="$_/Y ";
4891: }
4892:
4893: #-------------------------------------
4894:
4895:
4896: $_=$uword;
4897: if ((s/ώενσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4898: {
4899: $nf.="$_/Y ";
4900: }
4901:
4902: #-------------------------------------
4903:
4904:
4905: $_=$uword;
4906: if ((s/ώεϋψ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4907: {
4908: $nf.="$_/Y ";
4909: }
4910:
4911: #-------------------------------------
4912:
4913:
4914: $_=$uword;
4915: if ((s/ώεϋψσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4916: {
4917: $nf.="$_/Y ";
4918: }
4919:
4920: #-------------------------------------
4921:
4922:
4923: $_=$uword;
4924: if ((s/ώετε$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4925: {
4926: $nf.="$_/Y ";
4927: }
4928:
4929: #-------------------------------------
4930:
4931:
4932: $_=$uword;
4933: if ((s/ώετεσψ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4934: {
4935: $nf.="$_/Y ";
4936: }
4937:
4938: #-------------------------------------
4939:
4940:
4941: $_=$uword;
4942: if ((s/ώετ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4943: {
4944: $nf.="$_/Y ";
4945: }
4946:
4947: #-------------------------------------
4948:
4949:
4950: $_=$uword;
4951: if ((s/ώετσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4952: {
4953: $nf.="$_/Y ";
4954: }
4955:
4956: #-------------------------------------
4957:
4958:
4959: $_=$uword;
4960: if ((s/ώυτ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4961: {
4962: $nf.="$_/Y ";
4963: }
4964:
4965: #-------------------------------------
4966:
4967:
4968: $_=$uword;
4969: if ((s/ώυτσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4970: {
4971: $nf.="$_/Y ";
4972: }
4973:
4974: #-------------------------------------
4975:
4976:
4977: $_=$uword;
4978: if ((s/ύυ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4979: {
4980: $nf.="$_/Y ";
4981: }
4982:
4983: #-------------------------------------
4984:
4985:
4986: $_=$uword;
4987: if ((s/ύυσψ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4988: {
4989: $nf.="$_/Y ";
4990: }
4991:
4992: #-------------------------------------
4993:
4994:
4995: $_=$uword;
4996: if ((s/ύεν$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
4997: {
4998: $nf.="$_/Y ";
4999: }
5000:
5001: #-------------------------------------
5002:
5003:
5004: $_=$uword;
5005: if ((s/ύενσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5006: {
5007: $nf.="$_/Y ";
5008: }
5009:
5010: #-------------------------------------
5011:
5012:
5013: $_=$uword;
5014: if ((s/ύεϋψ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5015: {
5016: $nf.="$_/Y ";
5017: }
5018:
5019: #-------------------------------------
5020:
5021:
5022: $_=$uword;
5023: if ((s/ύεϋψσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5024: {
5025: $nf.="$_/Y ";
5026: }
5027:
5028: #-------------------------------------
5029:
5030:
5031: $_=$uword;
5032: if ((s/ύετε$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5033: {
5034: $nf.="$_/Y ";
5035: }
5036:
5037: #-------------------------------------
5038:
5039:
5040: $_=$uword;
5041: if ((s/ύετεσψ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5042: {
5043: $nf.="$_/Y ";
5044: }
5045:
5046: #-------------------------------------
5047:
5048:
5049: $_=$uword;
5050: if ((s/ύετ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5051: {
5052: $nf.="$_/Y ";
5053: }
5054:
5055: #-------------------------------------
5056:
5057:
5058: $_=$uword;
5059: if ((s/ύετσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5060: {
5061: $nf.="$_/Y ";
5062: }
5063:
5064: #-------------------------------------
5065:
5066:
5067: $_=$uword;
5068: if ((s/ύυτ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5069: {
5070: $nf.="$_/Y ";
5071: }
5072:
5073: #-------------------------------------
5074:
5075:
5076: $_=$uword;
5077: if ((s/ύυτσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5078: {
5079: $nf.="$_/Y ";
5080: }
5081:
5082: #-------------------------------------
5083:
5084:
5085: $_=$uword;
5086: if ((s/εςυ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5087: {
5088: $nf.="$_/Y ";
5089: }
5090:
5091: #-------------------------------------
5092:
5093:
5094: $_=$uword;
5095: if ((s/εςυσψ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5096: {
5097: $nf.="$_/Y ";
5098: }
5099:
5100: #-------------------------------------
5101:
5102:
5103: $_=$uword;
5104: if ((s/εςεν$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5105: {
5106: $nf.="$_/Y ";
5107: }
5108:
5109: #-------------------------------------
5110:
5111:
5112: $_=$uword;
5113: if ((s/εςενσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5114: {
5115: $nf.="$_/Y ";
5116: }
5117:
5118: #-------------------------------------
5119:
5120:
5121: $_=$uword;
5122: if ((s/εςεϋψ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5123: {
5124: $nf.="$_/Y ";
5125: }
5126:
5127: #-------------------------------------
5128:
5129:
5130: $_=$uword;
5131: if ((s/εςεϋψσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5132: {
5133: $nf.="$_/Y ";
5134: }
5135:
5136: #-------------------------------------
5137:
5138:
5139: $_=$uword;
5140: if ((s/εςετε$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5141: {
5142: $nf.="$_/Y ";
5143: }
5144:
5145: #-------------------------------------
5146:
5147:
5148: $_=$uword;
5149: if ((s/εςετεσψ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5150: {
5151: $nf.="$_/Y ";
5152: }
5153:
5154: #-------------------------------------
5155:
5156:
5157: $_=$uword;
5158: if ((s/εςετ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5159: {
5160: $nf.="$_/Y ";
5161: }
5162:
5163: #-------------------------------------
5164:
5165:
5166: $_=$uword;
5167: if ((s/εςετσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5168: {
5169: $nf.="$_/Y ";
5170: }
5171:
5172: #-------------------------------------
5173:
5174:
5175: $_=$uword;
5176: if ((s/εςυτ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5177: {
5178: $nf.="$_/Y ";
5179: }
5180:
5181: #-------------------------------------
5182:
5183:
5184: $_=$uword;
5185: if ((s/εςυτσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5186: {
5187: $nf.="$_/Y ";
5188: }
5189:
5190: #-------------------------------------
5191:
5192:
5193: $_=$uword;
5194: if ((s/ςυ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5195: {
5196: $nf.="$_/Y ";
5197: }
5198:
5199: #-------------------------------------
5200:
5201:
5202: $_=$uword;
5203: if ((s/ςυσψ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5204: {
5205: $nf.="$_/Y ";
5206: }
5207:
5208: #-------------------------------------
5209:
5210:
5211: $_=$uword;
5212: if ((s/ςεν$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5213: {
5214: $nf.="$_/Y ";
5215: }
5216:
5217: #-------------------------------------
5218:
5219:
5220: $_=$uword;
5221: if ((s/ςενσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5222: {
5223: $nf.="$_/Y ";
5224: }
5225:
5226: #-------------------------------------
5227:
5228:
5229: $_=$uword;
5230: if ((s/ςεϋψ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5231: {
5232: $nf.="$_/Y ";
5233: }
5234:
5235: #-------------------------------------
5236:
5237:
5238: $_=$uword;
5239: if ((s/ςεϋψσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5240: {
5241: $nf.="$_/Y ";
5242: }
5243:
5244: #-------------------------------------
5245:
5246:
5247: $_=$uword;
5248: if ((s/ςετε$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5249: {
5250: $nf.="$_/Y ";
5251: }
5252:
5253: #-------------------------------------
5254:
5255:
5256: $_=$uword;
5257: if ((s/ςετεσψ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5258: {
5259: $nf.="$_/Y ";
5260: }
5261:
5262: #-------------------------------------
5263:
5264:
5265: $_=$uword;
5266: if ((s/ςετ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5267: {
5268: $nf.="$_/Y ";
5269: }
5270:
5271: #-------------------------------------
5272:
5273:
5274: $_=$uword;
5275: if ((s/ςετσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5276: {
5277: $nf.="$_/Y ";
5278: }
5279:
5280: #-------------------------------------
5281:
5282:
5283: $_=$uword;
5284: if ((s/ςυτ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5285: {
5286: $nf.="$_/Y ";
5287: }
5288:
5289: #-------------------------------------
5290:
5291:
5292: $_=$uword;
5293: if ((s/ςυτσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5294: {
5295: $nf.="$_/Y ";
5296: }
5297:
5298: #-------------------------------------
5299:
5300:
5301: $_=$uword;
5302: if ((s/ώυ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5303: {
5304: $nf.="$_/Y ";
5305: }
5306:
5307: #-------------------------------------
5308:
5309:
5310: $_=$uword;
5311: if ((s/ώυσψ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5312: {
5313: $nf.="$_/Y ";
5314: }
5315:
5316: #-------------------------------------
5317:
5318:
5319: $_=$uword;
5320: if ((s/ώεν$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5321: {
5322: $nf.="$_/Y ";
5323: }
5324:
5325: #-------------------------------------
5326:
5327:
5328: $_=$uword;
5329: if ((s/ώενσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5330: {
5331: $nf.="$_/Y ";
5332: }
5333:
5334: #-------------------------------------
5335:
5336:
5337: $_=$uword;
5338: if ((s/ώεϋψ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5339: {
5340: $nf.="$_/Y ";
5341: }
5342:
5343: #-------------------------------------
5344:
5345:
5346: $_=$uword;
5347: if ((s/ώεϋψσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5348: {
5349: $nf.="$_/Y ";
5350: }
5351:
5352: #-------------------------------------
5353:
5354:
5355: $_=$uword;
5356: if ((s/ώετε$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5357: {
5358: $nf.="$_/Y ";
5359: }
5360:
5361: #-------------------------------------
5362:
5363:
5364: $_=$uword;
5365: if ((s/ώετεσψ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5366: {
5367: $nf.="$_/Y ";
5368: }
5369:
5370: #-------------------------------------
5371:
5372:
5373: $_=$uword;
5374: if ((s/ώετ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5375: {
5376: $nf.="$_/Y ";
5377: }
5378:
5379: #-------------------------------------
5380:
5381:
5382: $_=$uword;
5383: if ((s/ώετσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5384: {
5385: $nf.="$_/Y ";
5386: }
5387:
5388: #-------------------------------------
5389:
5390:
5391: $_=$uword;
5392: if ((s/ώυτ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5393: {
5394: $nf.="$_/Y ";
5395: }
5396:
5397: #-------------------------------------
5398:
5399:
5400: $_=$uword;
5401: if ((s/ώυτσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5402: {
5403: $nf.="$_/Y ";
5404: }
5405:
5406: #-------------------------------------
5407:
5408:
5409: $_=$uword;
5410: if ((s/ξυ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5411: {
5412: $nf.="$_/Y ";
5413: }
5414:
5415: #-------------------------------------
5416:
5417:
5418: $_=$uword;
5419: if ((s/ξυσψ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5420: {
5421: $nf.="$_/Y ";
5422: }
5423:
5424: #-------------------------------------
5425:
5426:
5427: $_=$uword;
5428: if ((s/ξεν$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5429: {
5430: $nf.="$_/Y ";
5431: }
5432:
5433: #-------------------------------------
5434:
5435:
5436: $_=$uword;
5437: if ((s/ξενσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5438: {
5439: $nf.="$_/Y ";
5440: }
5441:
5442: #-------------------------------------
5443:
5444:
5445: $_=$uword;
5446: if ((s/ξεϋψ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5447: {
5448: $nf.="$_/Y ";
5449: }
5450:
5451: #-------------------------------------
5452:
5453:
5454: $_=$uword;
5455: if ((s/ξεϋψσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5456: {
5457: $nf.="$_/Y ";
5458: }
5459:
5460: #-------------------------------------
5461:
5462:
5463: $_=$uword;
5464: if ((s/ξετε$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5465: {
5466: $nf.="$_/Y ";
5467: }
5468:
5469: #-------------------------------------
5470:
5471:
5472: $_=$uword;
5473: if ((s/ξετεσψ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5474: {
5475: $nf.="$_/Y ";
5476: }
5477:
5478: #-------------------------------------
5479:
5480:
5481: $_=$uword;
5482: if ((s/ξετ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5483: {
5484: $nf.="$_/Y ";
5485: }
5486:
5487: #-------------------------------------
5488:
5489:
5490: $_=$uword;
5491: if ((s/ξετσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5492: {
5493: $nf.="$_/Y ";
5494: }
5495:
5496: #-------------------------------------
5497:
5498:
5499: $_=$uword;
5500: if ((s/ξυτ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5501: {
5502: $nf.="$_/Y ";
5503: }
5504:
5505: #-------------------------------------
5506:
5507:
5508: $_=$uword;
5509: if ((s/ξυτσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5510: {
5511: $nf.="$_/Y ";
5512: }
5513:
5514: #-------------------------------------
5515:
5516:
5517: $_=$uword;
5518: if ((s/μΰ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5519: {
5520: $nf.="$_/Y ";
5521: }
5522:
5523: #-------------------------------------
5524:
5525:
5526: $_=$uword;
5527: if ((s/μΰσψ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5528: {
5529: $nf.="$_/Y ";
5530: }
5531:
5532: #-------------------------------------
5533:
5534:
5535: $_=$uword;
5536: if ((s/ιν$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5537: {
5538: $nf.="$_/Y ";
5539: }
5540:
5541: #-------------------------------------
5542:
5543:
5544: $_=$uword;
5545: if ((s/ινσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5546: {
5547: $nf.="$_/Y ";
5548: }
5549:
5550: #-------------------------------------
5551:
5552:
5553: $_=$uword;
5554: if ((s/ιϋψ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5555: {
5556: $nf.="$_/Y ";
5557: }
5558:
5559: #-------------------------------------
5560:
5561:
5562: $_=$uword;
5563: if ((s/ιϋψσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5564: {
5565: $nf.="$_/Y ";
5566: }
5567:
5568: #-------------------------------------
5569:
5570:
5571: $_=$uword;
5572: if ((s/ιτε$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5573: {
5574: $nf.="$_/Y ";
5575: }
5576:
5577: #-------------------------------------
5578:
5579:
5580: $_=$uword;
5581: if ((s/ιτεσψ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5582: {
5583: $nf.="$_/Y ";
5584: }
5585:
5586: #-------------------------------------
5587:
5588:
5589: $_=$uword;
5590: if ((s/ιτ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5591: {
5592: $nf.="$_/Y ";
5593: }
5594:
5595: #-------------------------------------
5596:
5597:
5598: $_=$uword;
5599: if ((s/ιτσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5600: {
5601: $nf.="$_/Y ";
5602: }
5603:
5604: #-------------------------------------
5605:
5606:
5607: $_=$uword;
5608: if ((s/ρτ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5609: {
5610: $nf.="$_/Y ";
5611: }
5612:
5613: #-------------------------------------
5614:
5615:
5616: $_=$uword;
5617: if ((s/ρτσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5618: {
5619: $nf.="$_/Y ";
5620: }
5621:
5622: #-------------------------------------
5623:
5624:
5625: $_=$uword;
5626: if ((s/ϋμΰ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5627: {
5628: $nf.="$_/Y ";
5629: }
5630:
5631: #-------------------------------------
5632:
5633:
5634: $_=$uword;
5635: if ((s/ϋμΰσψ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5636: {
5637: $nf.="$_/Y ";
5638: }
5639:
5640: #-------------------------------------
5641:
5642:
5643: $_=$uword;
5644: if ((s/ϋμεν$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5645: {
5646: $nf.="$_/Y ";
5647: }
5648:
5649: #-------------------------------------
5650:
5651:
5652: $_=$uword;
5653: if ((s/ϋμενσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5654: {
5655: $nf.="$_/Y ";
5656: }
5657:
5658: #-------------------------------------
5659:
5660:
5661: $_=$uword;
5662: if ((s/ϋμεϋψ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5663: {
5664: $nf.="$_/Y ";
5665: }
5666:
5667: #-------------------------------------
5668:
5669:
5670: $_=$uword;
5671: if ((s/ϋμεϋψσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5672: {
5673: $nf.="$_/Y ";
5674: }
5675:
5676: #-------------------------------------
5677:
5678:
5679: $_=$uword;
5680: if ((s/ϋμετε$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5681: {
5682: $nf.="$_/Y ";
5683: }
5684:
5685: #-------------------------------------
5686:
5687:
5688: $_=$uword;
5689: if ((s/ϋμετεσψ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5690: {
5691: $nf.="$_/Y ";
5692: }
5693:
5694: #-------------------------------------
5695:
5696:
5697: $_=$uword;
5698: if ((s/ϋμετ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5699: {
5700: $nf.="$_/Y ";
5701: }
5702:
5703: #-------------------------------------
5704:
5705:
5706: $_=$uword;
5707: if ((s/ϋμετσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5708: {
5709: $nf.="$_/Y ";
5710: }
5711:
5712: #-------------------------------------
5713:
5714:
5715: $_=$uword;
5716: if ((s/ϋμΰτ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5717: {
5718: $nf.="$_/Y ";
5719: }
5720:
5721: #-------------------------------------
5722:
5723:
5724: $_=$uword;
5725: if ((s/ϋμΰτσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5726: {
5727: $nf.="$_/Y ";
5728: }
5729:
5730: #-------------------------------------
5731:
5732:
5733: $_=$uword;
5734: if ((s/υ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5735: {
5736: $nf.="$_/Y ";
5737: }
5738:
5739: #-------------------------------------
5740:
5741:
5742: $_=$uword;
5743: if ((s/υσψ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5744: {
5745: $nf.="$_/Y ";
5746: }
5747:
5748: #-------------------------------------
5749:
5750:
5751: $_=$uword;
5752: if ((s/εν$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5753: {
5754: $nf.="$_/Y ";
5755: }
5756:
5757: #-------------------------------------
5758:
5759:
5760: $_=$uword;
5761: if ((s/ενσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5762: {
5763: $nf.="$_/Y ";
5764: }
5765:
5766: #-------------------------------------
5767:
5768:
5769: $_=$uword;
5770: if ((s/εϋψ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5771: {
5772: $nf.="$_/Y ";
5773: }
5774:
5775: #-------------------------------------
5776:
5777:
5778: $_=$uword;
5779: if ((s/εϋψσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5780: {
5781: $nf.="$_/Y ";
5782: }
5783:
5784: #-------------------------------------
5785:
5786:
5787: $_=$uword;
5788: if ((s/ετε$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5789: {
5790: $nf.="$_/Y ";
5791: }
5792:
5793: #-------------------------------------
5794:
5795:
5796: $_=$uword;
5797: if ((s/ετεσψ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5798: {
5799: $nf.="$_/Y ";
5800: }
5801:
5802: #-------------------------------------
5803:
5804:
5805: $_=$uword;
5806: if ((s/ετ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5807: {
5808: $nf.="$_/Y ";
5809: }
5810:
5811: #-------------------------------------
5812:
5813:
5814: $_=$uword;
5815: if ((s/ετσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5816: {
5817: $nf.="$_/Y ";
5818: }
5819:
5820: #-------------------------------------
5821:
5822:
5823: $_=$uword;
5824: if ((s/υτ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5825: {
5826: $nf.="$_/Y ";
5827: }
5828:
5829: #-------------------------------------
5830:
5831:
5832: $_=$uword;
5833: if ((s/υτσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5834: {
5835: $nf.="$_/Y ";
5836: }
5837:
5838: #-------------------------------------
5839:
5840:
5841: $_=$uword;
5842: if ((s/οχυ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5843: {
5844: $nf.="$_/Y ";
5845: }
5846:
5847: #-------------------------------------
5848:
5849:
5850: $_=$uword;
5851: if ((s/οχυσψ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5852: {
5853: $nf.="$_/Y ";
5854: }
5855:
5856: #-------------------------------------
5857:
5858:
5859: $_=$uword;
5860: if ((s/οχεν$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5861: {
5862: $nf.="$_/Y ";
5863: }
5864:
5865: #-------------------------------------
5866:
5867:
5868: $_=$uword;
5869: if ((s/οχενσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5870: {
5871: $nf.="$_/Y ";
5872: }
5873:
5874: #-------------------------------------
5875:
5876:
5877: $_=$uword;
5878: if ((s/οχεϋψ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5879: {
5880: $nf.="$_/Y ";
5881: }
5882:
5883: #-------------------------------------
5884:
5885:
5886: $_=$uword;
5887: if ((s/οχεϋψσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5888: {
5889: $nf.="$_/Y ";
5890: }
5891:
5892: #-------------------------------------
5893:
5894:
5895: $_=$uword;
5896: if ((s/οχετε$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5897: {
5898: $nf.="$_/Y ";
5899: }
5900:
5901: #-------------------------------------
5902:
5903:
5904: $_=$uword;
5905: if ((s/οχετεσψ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5906: {
5907: $nf.="$_/Y ";
5908: }
5909:
5910: #-------------------------------------
5911:
5912:
5913: $_=$uword;
5914: if ((s/οχετ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5915: {
5916: $nf.="$_/Y ";
5917: }
5918:
5919: #-------------------------------------
5920:
5921:
5922: $_=$uword;
5923: if ((s/οχετσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5924: {
5925: $nf.="$_/Y ";
5926: }
5927:
5928: #-------------------------------------
5929:
5930:
5931: $_=$uword;
5932: if ((s/οχυτ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5933: {
5934: $nf.="$_/Y ";
5935: }
5936:
5937: #-------------------------------------
5938:
5939:
5940: $_=$uword;
5941: if ((s/οχυτσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5942: {
5943: $nf.="$_/Y ";
5944: }
5945:
5946: #-------------------------------------
5947:
5948:
5949: $_=$uword;
5950: if ((s/οξΰ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5951: {
5952: $nf.="$_/Y ";
5953: }
5954:
5955: #-------------------------------------
5956:
5957:
5958: $_=$uword;
5959: if ((s/οξΰσψ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5960: {
5961: $nf.="$_/Y ";
5962: }
5963:
5964: #-------------------------------------
5965:
5966:
5967: $_=$uword;
5968: if ((s/οξιν$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5969: {
5970: $nf.="$_/Y ";
5971: }
5972:
5973: #-------------------------------------
5974:
5975:
5976: $_=$uword;
5977: if ((s/οξινσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5978: {
5979: $nf.="$_/Y ";
5980: }
5981:
5982: #-------------------------------------
5983:
5984:
5985: $_=$uword;
5986: if ((s/οξιϋψ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5987: {
5988: $nf.="$_/Y ";
5989: }
5990:
5991: #-------------------------------------
5992:
5993:
5994: $_=$uword;
5995: if ((s/οξιϋψσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
5996: {
5997: $nf.="$_/Y ";
5998: }
5999:
6000: #-------------------------------------
6001:
6002:
6003: $_=$uword;
6004: if ((s/οξιτε$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6005: {
6006: $nf.="$_/Y ";
6007: }
6008:
6009: #-------------------------------------
6010:
6011:
6012: $_=$uword;
6013: if ((s/οξιτεσψ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6014: {
6015: $nf.="$_/Y ";
6016: }
6017:
6018: #-------------------------------------
6019:
6020:
6021: $_=$uword;
6022: if ((s/οξιτ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6023: {
6024: $nf.="$_/Y ";
6025: }
6026:
6027: #-------------------------------------
6028:
6029:
6030: $_=$uword;
6031: if ((s/οξιτσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6032: {
6033: $nf.="$_/Y ";
6034: }
6035:
6036: #-------------------------------------
6037:
6038:
6039: $_=$uword;
6040: if ((s/οξρτ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6041: {
6042: $nf.="$_/Y ";
6043: }
6044:
6045: #-------------------------------------
6046:
6047:
6048: $_=$uword;
6049: if ((s/οξρτσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6050: {
6051: $nf.="$_/Y ";
6052: }
6053:
6054: #-------------------------------------
6055:
6056:
6057: $_=$uword;
6058: if ((s/ϋυ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6059: {
6060: $nf.="$_/Y ";
6061: }
6062:
6063: #-------------------------------------
6064:
6065:
6066: $_=$uword;
6067: if ((s/ϋυσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6068: {
6069: $nf.="$_/Y ";
6070: }
6071:
6072: #-------------------------------------
6073:
6074:
6075: $_=$uword;
6076: if ((s/ϋεν$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6077: {
6078: $nf.="$_/Y ";
6079: }
6080:
6081: #-------------------------------------
6082:
6083:
6084: $_=$uword;
6085: if ((s/ϋενσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6086: {
6087: $nf.="$_/Y ";
6088: }
6089:
6090: #-------------------------------------
6091:
6092:
6093: $_=$uword;
6094: if ((s/ϋεϋψ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6095: {
6096: $nf.="$_/Y ";
6097: }
6098:
6099: #-------------------------------------
6100:
6101:
6102: $_=$uword;
6103: if ((s/ϋεϋψσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6104: {
6105: $nf.="$_/Y ";
6106: }
6107:
6108: #-------------------------------------
6109:
6110:
6111: $_=$uword;
6112: if ((s/ϋετε$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6113: {
6114: $nf.="$_/Y ";
6115: }
6116:
6117: #-------------------------------------
6118:
6119:
6120: $_=$uword;
6121: if ((s/ϋετεσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6122: {
6123: $nf.="$_/Y ";
6124: }
6125:
6126: #-------------------------------------
6127:
6128:
6129: $_=$uword;
6130: if ((s/ϋετ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6131: {
6132: $nf.="$_/Y ";
6133: }
6134:
6135: #-------------------------------------
6136:
6137:
6138: $_=$uword;
6139: if ((s/ϋετσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6140: {
6141: $nf.="$_/Y ";
6142: }
6143:
6144: #-------------------------------------
6145:
6146:
6147: $_=$uword;
6148: if ((s/ϋυτ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6149: {
6150: $nf.="$_/Y ";
6151: }
6152:
6153: #-------------------------------------
6154:
6155:
6156: $_=$uword;
6157: if ((s/ϋυτσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6158: {
6159: $nf.="$_/Y ";
6160: }
6161:
6162: #-------------------------------------
6163:
6164:
6165: $_=$uword;
6166: if ((s/τυ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6167: {
6168: $nf.="$_/Y ";
6169: }
6170:
6171: #-------------------------------------
6172:
6173:
6174: $_=$uword;
6175: if ((s/τεν$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6176: {
6177: $nf.="$_/Y ";
6178: }
6179:
6180: #-------------------------------------
6181:
6182:
6183: $_=$uword;
6184: if ((s/τεϋψ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6185: {
6186: $nf.="$_/Y ";
6187: }
6188:
6189: #-------------------------------------
6190:
6191:
6192: $_=$uword;
6193: if ((s/τετε$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6194: {
6195: $nf.="$_/Y ";
6196: }
6197:
6198: #-------------------------------------
6199:
6200:
6201: $_=$uword;
6202: if ((s/τετ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6203: {
6204: $nf.="$_/Y ";
6205: }
6206:
6207: #-------------------------------------
6208:
6209:
6210: $_=$uword;
6211: if ((s/τυτ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6212: {
6213: $nf.="$_/Y ";
6214: }
6215:
6216: #-------------------------------------
6217:
6218:
6219: $_=$uword;
6220: if ((s/ρδυ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6221: {
6222: $nf.="$_/Y ";
6223: }
6224:
6225: #-------------------------------------
6226:
6227:
6228: $_=$uword;
6229: if ((s/ρδεν$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6230: {
6231: $nf.="$_/Y ";
6232: }
6233:
6234: #-------------------------------------
6235:
6236:
6237: $_=$uword;
6238: if ((s/ρδεϋψ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6239: {
6240: $nf.="$_/Y ";
6241: }
6242:
6243: #-------------------------------------
6244:
6245:
6246: $_=$uword;
6247: if ((s/ρδετε$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6248: {
6249: $nf.="$_/Y ";
6250: }
6251:
6252: #-------------------------------------
6253:
6254:
6255: $_=$uword;
6256: if ((s/ρδετ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6257: {
6258: $nf.="$_/Y ";
6259: }
6260:
6261: #-------------------------------------
6262:
6263:
6264: $_=$uword;
6265: if ((s/ρδυτ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6266: {
6267: $nf.="$_/Y ";
6268: }
6269:
6270: #-------------------------------------
6271:
6272:
6273: $_=$uword;
6274: if ((s/υ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6275: {
6276: $nf.="$_/Y ";
6277: }
6278:
6279: #-------------------------------------
6280:
6281:
6282: $_=$uword;
6283: if ((s/εν$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6284: {
6285: $nf.="$_/Y ";
6286: }
6287:
6288: #-------------------------------------
6289:
6290:
6291: $_=$uword;
6292: if ((s/εϋψ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6293: {
6294: $nf.="$_/Y ";
6295: }
6296:
6297: #-------------------------------------
6298:
6299:
6300: $_=$uword;
6301: if ((s/ετε$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6302: {
6303: $nf.="$_/Y ";
6304: }
6305:
6306: #-------------------------------------
6307:
6308:
6309: $_=$uword;
6310: if ((s/ετ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6311: {
6312: $nf.="$_/Y ";
6313: }
6314:
6315: #-------------------------------------
6316:
6317:
6318: $_=$uword;
6319: if ((s/υτ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6320: {
6321: $nf.="$_/Y ";
6322: }
6323:
6324: #-------------------------------------
6325:
6326:
6327: $_=$uword;
6328: if ((s/δυ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6329: {
6330: $nf.="$_/Y ";
6331: }
6332:
6333: #-------------------------------------
6334:
6335:
6336: $_=$uword;
6337: if ((s/δυσψ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6338: {
6339: $nf.="$_/Y ";
6340: }
6341:
6342: #-------------------------------------
6343:
6344:
6345: $_=$uword;
6346: if ((s/δεν$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6347: {
6348: $nf.="$_/Y ";
6349: }
6350:
6351: #-------------------------------------
6352:
6353:
6354: $_=$uword;
6355: if ((s/δενσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6356: {
6357: $nf.="$_/Y ";
6358: }
6359:
6360: #-------------------------------------
6361:
6362:
6363: $_=$uword;
6364: if ((s/δεϋψ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6365: {
6366: $nf.="$_/Y ";
6367: }
6368:
6369: #-------------------------------------
6370:
6371:
6372: $_=$uword;
6373: if ((s/δεϋψσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6374: {
6375: $nf.="$_/Y ";
6376: }
6377:
6378: #-------------------------------------
6379:
6380:
6381: $_=$uword;
6382: if ((s/δετε$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6383: {
6384: $nf.="$_/Y ";
6385: }
6386:
6387: #-------------------------------------
6388:
6389:
6390: $_=$uword;
6391: if ((s/δετεσψ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6392: {
6393: $nf.="$_/Y ";
6394: }
6395:
6396: #-------------------------------------
6397:
6398:
6399: $_=$uword;
6400: if ((s/δετ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6401: {
6402: $nf.="$_/Y ";
6403: }
6404:
6405: #-------------------------------------
6406:
6407:
6408: $_=$uword;
6409: if ((s/δετσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6410: {
6411: $nf.="$_/Y ";
6412: }
6413:
6414: #-------------------------------------
6415:
6416:
6417: $_=$uword;
6418: if ((s/δυτ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6419: {
6420: $nf.="$_/Y ";
6421: }
6422:
6423: #-------------------------------------
6424:
6425:
6426: $_=$uword;
6427: if ((s/δυτσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6428: {
6429: $nf.="$_/Y ";
6430: }
6431:
6432: #-------------------------------------
6433:
6434:
6435: $_=$uword;
6436: if ((s/ξυ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6437: {
6438: $nf.="$_/Y ";
6439: }
6440:
6441: #-------------------------------------
6442:
6443:
6444: $_=$uword;
6445: if ((s/ξυσψ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6446: {
6447: $nf.="$_/Y ";
6448: }
6449:
6450: #-------------------------------------
6451:
6452:
6453: $_=$uword;
6454: if ((s/ξεν$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6455: {
6456: $nf.="$_/Y ";
6457: }
6458:
6459: #-------------------------------------
6460:
6461:
6462: $_=$uword;
6463: if ((s/ξενσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6464: {
6465: $nf.="$_/Y ";
6466: }
6467:
6468: #-------------------------------------
6469:
6470:
6471: $_=$uword;
6472: if ((s/ξεϋψ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6473: {
6474: $nf.="$_/Y ";
6475: }
6476:
6477: #-------------------------------------
6478:
6479:
6480: $_=$uword;
6481: if ((s/ξεϋψσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6482: {
6483: $nf.="$_/Y ";
6484: }
6485:
6486: #-------------------------------------
6487:
6488:
6489: $_=$uword;
6490: if ((s/ξετε$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6491: {
6492: $nf.="$_/Y ";
6493: }
6494:
6495: #-------------------------------------
6496:
6497:
6498: $_=$uword;
6499: if ((s/ξετεσψ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6500: {
6501: $nf.="$_/Y ";
6502: }
6503:
6504: #-------------------------------------
6505:
6506:
6507: $_=$uword;
6508: if ((s/ξετ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6509: {
6510: $nf.="$_/Y ";
6511: }
6512:
6513: #-------------------------------------
6514:
6515:
6516: $_=$uword;
6517: if ((s/ξετσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6518: {
6519: $nf.="$_/Y ";
6520: }
6521:
6522: #-------------------------------------
6523:
6524:
6525: $_=$uword;
6526: if ((s/ξυτ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6527: {
6528: $nf.="$_/Y ";
6529: }
6530:
6531: #-------------------------------------
6532:
6533:
6534: $_=$uword;
6535: if ((s/ξυτσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6536: {
6537: $nf.="$_/Y ";
6538: }
6539:
6540: #-------------------------------------
6541:
6542:
6543: $_=$uword;
6544: if ((s/υ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6545: {
6546: $nf.="$_/Y ";
6547: }
6548:
6549: #-------------------------------------
6550:
6551:
6552: $_=$uword;
6553: if ((s/εν$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6554: {
6555: $nf.="$_/Y ";
6556: }
6557:
6558: #-------------------------------------
6559:
6560:
6561: $_=$uword;
6562: if ((s/εϋψ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6563: {
6564: $nf.="$_/Y ";
6565: }
6566:
6567: #-------------------------------------
6568:
6569:
6570: $_=$uword;
6571: if ((s/ετε$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6572: {
6573: $nf.="$_/Y ";
6574: }
6575:
6576: #-------------------------------------
6577:
6578:
6579: $_=$uword;
6580: if ((s/ετ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6581: {
6582: $nf.="$_/Y ";
6583: }
6584:
6585: #-------------------------------------
6586:
6587:
6588: $_=$uword;
6589: if ((s/υτ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6590: {
6591: $nf.="$_/Y ";
6592: }
6593:
6594: #-------------------------------------
6595:
6596:
6597: $_=$uword;
6598: if ((s/δυ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6599: {
6600: $nf.="$_/Y ";
6601: }
6602:
6603: #-------------------------------------
6604:
6605:
6606: $_=$uword;
6607: if ((s/δυσψ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6608: {
6609: $nf.="$_/Y ";
6610: }
6611:
6612: #-------------------------------------
6613:
6614:
6615: $_=$uword;
6616: if ((s/δεν$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6617: {
6618: $nf.="$_/Y ";
6619: }
6620:
6621: #-------------------------------------
6622:
6623:
6624: $_=$uword;
6625: if ((s/δενσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6626: {
6627: $nf.="$_/Y ";
6628: }
6629:
6630: #-------------------------------------
6631:
6632:
6633: $_=$uword;
6634: if ((s/δεϋψ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6635: {
6636: $nf.="$_/Y ";
6637: }
6638:
6639: #-------------------------------------
6640:
6641:
6642: $_=$uword;
6643: if ((s/δεϋψσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6644: {
6645: $nf.="$_/Y ";
6646: }
6647:
6648: #-------------------------------------
6649:
6650:
6651: $_=$uword;
6652: if ((s/δετε$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6653: {
6654: $nf.="$_/Y ";
6655: }
6656:
6657: #-------------------------------------
6658:
6659:
6660: $_=$uword;
6661: if ((s/δετεσψ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6662: {
6663: $nf.="$_/Y ";
6664: }
6665:
6666: #-------------------------------------
6667:
6668:
6669: $_=$uword;
6670: if ((s/δετ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6671: {
6672: $nf.="$_/Y ";
6673: }
6674:
6675: #-------------------------------------
6676:
6677:
6678: $_=$uword;
6679: if ((s/δετσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6680: {
6681: $nf.="$_/Y ";
6682: }
6683:
6684: #-------------------------------------
6685:
6686:
6687: $_=$uword;
6688: if ((s/δυτ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6689: {
6690: $nf.="$_/Y ";
6691: }
6692:
6693: #-------------------------------------
6694:
6695:
6696: $_=$uword;
6697: if ((s/δυτσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6698: {
6699: $nf.="$_/Y ";
6700: }
6701:
6702: #-------------------------------------
6703:
6704:
6705: $_=$uword;
6706: if ((s/τυ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6707: {
6708: $nf.="$_/Y ";
6709: }
6710:
6711: #-------------------------------------
6712:
6713:
6714: $_=$uword;
6715: if ((s/τυσψ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6716: {
6717: $nf.="$_/Y ";
6718: }
6719:
6720: #-------------------------------------
6721:
6722:
6723: $_=$uword;
6724: if ((s/τεν$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6725: {
6726: $nf.="$_/Y ";
6727: }
6728:
6729: #-------------------------------------
6730:
6731:
6732: $_=$uword;
6733: if ((s/τενσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6734: {
6735: $nf.="$_/Y ";
6736: }
6737:
6738: #-------------------------------------
6739:
6740:
6741: $_=$uword;
6742: if ((s/τεϋψ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6743: {
6744: $nf.="$_/Y ";
6745: }
6746:
6747: #-------------------------------------
6748:
6749:
6750: $_=$uword;
6751: if ((s/τεϋψσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6752: {
6753: $nf.="$_/Y ";
6754: }
6755:
6756: #-------------------------------------
6757:
6758:
6759: $_=$uword;
6760: if ((s/τετε$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6761: {
6762: $nf.="$_/Y ";
6763: }
6764:
6765: #-------------------------------------
6766:
6767:
6768: $_=$uword;
6769: if ((s/τετεσψ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6770: {
6771: $nf.="$_/Y ";
6772: }
6773:
6774: #-------------------------------------
6775:
6776:
6777: $_=$uword;
6778: if ((s/τετ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6779: {
6780: $nf.="$_/Y ";
6781: }
6782:
6783: #-------------------------------------
6784:
6785:
6786: $_=$uword;
6787: if ((s/τετσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6788: {
6789: $nf.="$_/Y ";
6790: }
6791:
6792: #-------------------------------------
6793:
6794:
6795: $_=$uword;
6796: if ((s/τυτ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6797: {
6798: $nf.="$_/Y ";
6799: }
6800:
6801: #-------------------------------------
6802:
6803:
6804: $_=$uword;
6805: if ((s/τυτσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6806: {
6807: $nf.="$_/Y ";
6808: }
6809:
6810: #-------------------------------------
6811:
6812:
6813: $_=$uword;
6814: if ((s/βυ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6815: {
6816: $nf.="$_/Y ";
6817: }
6818:
6819: #-------------------------------------
6820:
6821:
6822: $_=$uword;
6823: if ((s/βεν$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6824: {
6825: $nf.="$_/Y ";
6826: }
6827:
6828: #-------------------------------------
6829:
6830:
6831: $_=$uword;
6832: if ((s/βεϋψ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6833: {
6834: $nf.="$_/Y ";
6835: }
6836:
6837: #-------------------------------------
6838:
6839:
6840: $_=$uword;
6841: if ((s/βετε$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6842: {
6843: $nf.="$_/Y ";
6844: }
6845:
6846: #-------------------------------------
6847:
6848:
6849: $_=$uword;
6850: if ((s/βετ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6851: {
6852: $nf.="$_/Y ";
6853: }
6854:
6855: #-------------------------------------
6856:
6857:
6858: $_=$uword;
6859: if ((s/βυτ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6860: {
6861: $nf.="$_/Y ";
6862: }
6863:
6864: #-------------------------------------
6865:
6866:
6867: $_=$uword;
6868: if ((s/ηυ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6869: {
6870: $nf.="$_/Y ";
6871: }
6872:
6873: #-------------------------------------
6874:
6875:
6876: $_=$uword;
6877: if ((s/φεν$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6878: {
6879: $nf.="$_/Y ";
6880: }
6881:
6882: #-------------------------------------
6883:
6884:
6885: $_=$uword;
6886: if ((s/φεϋψ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6887: {
6888: $nf.="$_/Y ";
6889: }
6890:
6891: #-------------------------------------
6892:
6893:
6894: $_=$uword;
6895: if ((s/φετε$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6896: {
6897: $nf.="$_/Y ";
6898: }
6899:
6900: #-------------------------------------
6901:
6902:
6903: $_=$uword;
6904: if ((s/φετ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6905: {
6906: $nf.="$_/Y ";
6907: }
6908:
6909: #-------------------------------------
6910:
6911:
6912: $_=$uword;
6913: if ((s/ηυτ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
6914: {
6915: $nf.="$_/Y ";
6916: }
6917:
6918: #-------------------------------------
6919:
6920:
6921: $_=$uword;
6922: if ((s/κ$/τψ/) && (m/[αερ]τψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6923: {
6924: $nf.="$_/B ";
6925: }
6926:
6927: #-------------------------------------
6928:
6929:
6930: $_=$uword;
6931: if ((s/κσρ$/τψσρ/) && (m/[αερ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6932: {
6933: $nf.="$_/B ";
6934: }
6935:
6936: #-------------------------------------
6937:
6938:
6939: $_=$uword;
6940: if ((s/κτε$/τψ/) && (m/[αερ]τψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6941: {
6942: $nf.="$_/B ";
6943: }
6944:
6945: #-------------------------------------
6946:
6947:
6948: $_=$uword;
6949: if ((s/κτεσψ$/τψσρ/) && (m/[αερ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6950: {
6951: $nf.="$_/B ";
6952: }
6953:
6954: #-------------------------------------
6955:
6956:
6957: $_=$uword;
6958: if ((s/$/τψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6959: {
6960: $nf.="$_/B ";
6961: }
6962:
6963: #-------------------------------------
6964:
6965:
6966: $_=$uword;
6967: if ((s/ε$/ψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6968: {
6969: $nf.="$_/B ";
6970: }
6971:
6972: #-------------------------------------
6973:
6974:
6975: $_=$uword;
6976: if ((s/σψ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6977: {
6978: $nf.="$_/B ";
6979: }
6980:
6981: #-------------------------------------
6982:
6983:
6984: $_=$uword;
6985: if ((s/τεσψ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6986: {
6987: $nf.="$_/B ";
6988: }
6989:
6990: #-------------------------------------
6991:
6992:
6993: $_=$uword;
6994: if ((s/ι$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
6995: {
6996: $nf.="$_/B ";
6997: }
6998:
6999: #-------------------------------------
7000:
7001:
7002: $_=$uword;
7003: if ((s/ιτε$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7004: {
7005: $nf.="$_/B ";
7006: }
7007:
7008: #-------------------------------------
7009:
7010:
7011: $_=$uword;
7012: if ((s/ισψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7013: {
7014: $nf.="$_/B ";
7015: }
7016:
7017: #-------------------------------------
7018:
7019:
7020: $_=$uword;
7021: if ((s/ιτεσψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7022: {
7023: $nf.="$_/B ";
7024: }
7025:
7026: #-------------------------------------
7027:
7028:
7029: $_=$uword;
7030: if ((s/ι$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7031: {
7032: $nf.="$_/B ";
7033: }
7034:
7035: #-------------------------------------
7036:
7037:
7038: $_=$uword;
7039: if ((s/ιτε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7040: {
7041: $nf.="$_/B ";
7042: }
7043:
7044: #-------------------------------------
7045:
7046:
7047: $_=$uword;
7048: if ((s/ισψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7049: {
7050: $nf.="$_/B ";
7051: }
7052:
7053: #-------------------------------------
7054:
7055:
7056: $_=$uword;
7057: if ((s/ιτεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7058: {
7059: $nf.="$_/B ";
7060: }
7061:
7062: #-------------------------------------
7063:
7064:
7065: $_=$uword;
7066: if ((s/οκ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7067: {
7068: $nf.="$_/B ";
7069: }
7070:
7071: #-------------------------------------
7072:
7073:
7074: $_=$uword;
7075: if ((s/οκτε$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7076: {
7077: $nf.="$_/B ";
7078: }
7079:
7080: #-------------------------------------
7081:
7082:
7083: $_=$uword;
7084: if ((s/οκσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7085: {
7086: $nf.="$_/B ";
7087: }
7088:
7089: #-------------------------------------
7090:
7091:
7092: $_=$uword;
7093: if ((s/οκτεσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
7094: {
7095: $nf.="$_/B ";
7096: }
7097:
7098: #-------------------------------------
7099:
7100:
7101: $_=$uword;
7102: if ((s/υκ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7103: {
7104: $nf.="$_/T ";
7105: }
7106:
7107: #-------------------------------------
7108:
7109:
7110: $_=$uword;
7111: if ((s/υκσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7112: {
7113: $nf.="$_/T ";
7114: }
7115:
7116: #-------------------------------------
7117:
7118:
7119: $_=$uword;
7120: if ((s/υκτε$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7121: {
7122: $nf.="$_/T ";
7123: }
7124:
7125: #-------------------------------------
7126:
7127:
7128: $_=$uword;
7129: if ((s/υκτεσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7130: {
7131: $nf.="$_/T ";
7132: }
7133:
7134: #-------------------------------------
7135:
7136:
7137: $_=$uword;
7138: if ((s/υκ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7139: {
7140: $nf.="$_/T ";
7141: }
7142:
7143: #-------------------------------------
7144:
7145:
7146: $_=$uword;
7147: if ((s/υκτε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7148: {
7149: $nf.="$_/T ";
7150: }
7151:
7152: #-------------------------------------
7153:
7154:
7155: $_=$uword;
7156: if ((s/υκσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7157: {
7158: $nf.="$_/T ";
7159: }
7160:
7161: #-------------------------------------
7162:
7163:
7164: $_=$uword;
7165: if ((s/υκτεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7166: {
7167: $nf.="$_/T ";
7168: }
7169:
7170: #-------------------------------------
7171:
7172:
7173: $_=$uword;
7174: if ((s/ΰκ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7175: {
7176: $nf.="$_/T ";
7177: }
7178:
7179: #-------------------------------------
7180:
7181:
7182: $_=$uword;
7183: if ((s/ΰκτε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7184: {
7185: $nf.="$_/T ";
7186: }
7187:
7188: #-------------------------------------
7189:
7190:
7191: $_=$uword;
7192: if ((s/ΰκσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7193: {
7194: $nf.="$_/T ";
7195: }
7196:
7197: #-------------------------------------
7198:
7199:
7200: $_=$uword;
7201: if ((s/ΰκτεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7202: {
7203: $nf.="$_/T ";
7204: }
7205:
7206: #-------------------------------------
7207:
7208:
7209: $_=$uword;
7210: if ((s/ι$/ατψ/) && (m/[φώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7211: {
7212: $nf.="$_/T ";
7213: }
7214:
7215: #-------------------------------------
7216:
7217:
7218: $_=$uword;
7219: if ((s/ισψ$/ατψσρ/) && (m/[φώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7220: {
7221: $nf.="$_/T ";
7222: }
7223:
7224: #-------------------------------------
7225:
7226:
7227: $_=$uword;
7228: if ((s/ϋι$/σατψ/) && (m/σατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7229: {
7230: $nf.="$_/T ";
7231: }
7232:
7233: #-------------------------------------
7234:
7235:
7236: $_=$uword;
7237: if ((s/ϋιτε$/σατψ/) && (m/σατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7238: {
7239: $nf.="$_/T ";
7240: }
7241:
7242: #-------------------------------------
7243:
7244:
7245: $_=$uword;
7246: if ((s/ϋισψ$/σατψσρ/) && (m/σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7247: {
7248: $nf.="$_/T ";
7249: }
7250:
7251: #-------------------------------------
7252:
7253:
7254: $_=$uword;
7255: if ((s/ϋιτεσψ$/σατψσρ/) && (m/σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7256: {
7257: $nf.="$_/T ";
7258: }
7259:
7260: #-------------------------------------
7261:
7262:
7263: $_=$uword;
7264: if ((s/κ$/ιτψ/) && (m/[αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7265: {
7266: $nf.="$_/T ";
7267: }
7268:
7269: #-------------------------------------
7270:
7271:
7272: $_=$uword;
7273: if ((s/κτε$/ιτψ/) && (m/[αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7274: {
7275: $nf.="$_/T ";
7276: }
7277:
7278: #-------------------------------------
7279:
7280:
7281: $_=$uword;
7282: if ((s/κσρ$/ιτψσρ/) && (m/[αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7283: {
7284: $nf.="$_/T ";
7285: }
7286:
7287: #-------------------------------------
7288:
7289:
7290: $_=$uword;
7291: if ((s/κτεσψ$/ιτψσρ/) && (m/[αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7292: {
7293: $nf.="$_/T ";
7294: }
7295:
7296: #-------------------------------------
7297:
7298:
7299: $_=$uword;
7300: if ((s/ψ$/ιτψ/) && (m/[^αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7301: {
7302: $nf.="$_/T ";
7303: }
7304:
7305: #-------------------------------------
7306:
7307:
7308: $_=$uword;
7309: if ((s/ψτε$/ιτψ/) && (m/[^αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7310: {
7311: $nf.="$_/T ";
7312: }
7313:
7314: #-------------------------------------
7315:
7316:
7317: $_=$uword;
7318: if ((s/ψσρ$/ιτψσρ/) && (m/[^αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7319: {
7320: $nf.="$_/T ";
7321: }
7322:
7323: #-------------------------------------
7324:
7325:
7326: $_=$uword;
7327: if ((s/ψτεσψ$/ιτψσρ/) && (m/[^αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7328: {
7329: $nf.="$_/T ";
7330: }
7331:
7332: #-------------------------------------
7333:
7334:
7335: $_=$uword;
7336: if ((s/ψ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7337: {
7338: $nf.="$_/T ";
7339: }
7340:
7341: #-------------------------------------
7342:
7343:
7344: $_=$uword;
7345: if ((s/ψτε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7346: {
7347: $nf.="$_/T ";
7348: }
7349:
7350: #-------------------------------------
7351:
7352:
7353: $_=$uword;
7354: if ((s/ψσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7355: {
7356: $nf.="$_/T ";
7357: }
7358:
7359: #-------------------------------------
7360:
7361:
7362: $_=$uword;
7363: if ((s/ψτεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7364: {
7365: $nf.="$_/T ";
7366: }
7367:
7368: #-------------------------------------
7369:
7370:
7371: $_=$uword;
7372: if ((s/κ$/ρτψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7373: {
7374: $nf.="$_/T ";
7375: }
7376:
7377: #-------------------------------------
7378:
7379:
7380: $_=$uword;
7381: if ((s/κτε$/ρτψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7382: {
7383: $nf.="$_/T ";
7384: }
7385:
7386: #-------------------------------------
7387:
7388:
7389: $_=$uword;
7390: if ((s/κσρ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7391: {
7392: $nf.="$_/T ";
7393: }
7394:
7395: #-------------------------------------
7396:
7397:
7398: $_=$uword;
7399: if ((s/κτεσψ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7400: {
7401: $nf.="$_/T ";
7402: }
7403:
7404: #-------------------------------------
7405:
7406:
7407: $_=$uword;
7408: if ((s/ι$/ετψ/) && (m/ετψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7409: {
7410: $nf.="$_/T ";
7411: }
7412:
7413: #-------------------------------------
7414:
7415:
7416: $_=$uword;
7417: if ((s/ισψ$/ετψσρ/) && (m/ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7418: {
7419: $nf.="$_/T ";
7420: }
7421:
7422: #-------------------------------------
7423:
7424:
7425: $_=$uword;
7426: if ((s/ιτε$/ετψ/) && (m/ετψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7427: {
7428: $nf.="$_/T ";
7429: }
7430:
7431: #-------------------------------------
7432:
7433:
7434: $_=$uword;
7435: if ((s/ιτεσψ$/ετψσρ/) && (m/ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
7436: {
7437: $nf.="$_/T ";
7438: }
7439:
7440: #-------------------------------------
7441:
7442:
7443: $_=$uword;
7444: if ((s/ρ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7445: {
7446: $nf.="$_/P ";
7447: }
7448:
7449: #-------------------------------------
7450:
7451:
7452: $_=$uword;
7453: if ((s/ρσψ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7454: {
7455: $nf.="$_/P ";
7456: }
7457:
7458: #-------------------------------------
7459:
7460:
7461: $_=$uword;
7462: if ((s/ρ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7463: {
7464: $nf.="$_/P ";
7465: }
7466:
7467: #-------------------------------------
7468:
7469:
7470: $_=$uword;
7471: if ((s/ρσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7472: {
7473: $nf.="$_/P ";
7474: }
7475:
7476: #-------------------------------------
7477:
7478:
7479: $_=$uword;
7480: if ((s/$/τψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7481: {
7482: $nf.="$_/P ";
7483: }
7484:
7485: #-------------------------------------
7486:
7487:
7488: $_=$uword;
7489: if ((s/σψ$/τψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7490: {
7491: $nf.="$_/P ";
7492: }
7493:
7494: #-------------------------------------
7495:
7496:
7497: $_=$uword;
7498: if ((s/ρ$/ιτψ/) && (m/[^φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7499: {
7500: $nf.="$_/P ";
7501: }
7502:
7503: #-------------------------------------
7504:
7505:
7506: $_=$uword;
7507: if ((s/ρσψ$/ιτψσρ/) && (m/[^φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7508: {
7509: $nf.="$_/P ";
7510: }
7511:
7512: #-------------------------------------
7513:
7514:
7515: $_=$uword;
7516: if ((s/α$/ιτψ/) && (m/[φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7517: {
7518: $nf.="$_/P ";
7519: }
7520:
7521: #-------------------------------------
7522:
7523:
7524: $_=$uword;
7525: if ((s/ασψ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7526: {
7527: $nf.="$_/P ";
7528: }
7529:
7530: #-------------------------------------
7531:
7532:
7533: $_=$uword;
7534: if ((s/ορ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7535: {
7536: $nf.="$_/P ";
7537: }
7538:
7539: #-------------------------------------
7540:
7541:
7542: $_=$uword;
7543: if ((s/ορσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
7544: {
7545: $nf.="$_/P ";
7546: }
7547:
7548: #-------------------------------------
7549:
7550:
7551: $_=$uword;
7552: if ((s/υρ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
7553: {
7554: $nf.="$_/Q ";
7555: }
7556:
7557: #-------------------------------------
7558:
7559:
7560: $_=$uword;
7561: if ((s/υρσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
7562: {
7563: $nf.="$_/Q ";
7564: }
7565:
7566: #-------------------------------------
7567:
7568:
7569: $_=$uword;
7570: if ((s/ΰρ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
7571: {
7572: $nf.="$_/Q ";
7573: }
7574:
7575: #-------------------------------------
7576:
7577:
7578: $_=$uword;
7579: if ((s/ΰρσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
7580: {
7581: $nf.="$_/Q ";
7582: }
7583:
7584: #-------------------------------------
7585:
7586:
7587: $_=$uword;
7588: if ((s/υρ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
7589: {
7590: $nf.="$_/Q ";
7591: }
7592:
7593: #-------------------------------------
7594:
7595:
7596: $_=$uword;
7597: if ((s/υρσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
7598: {
7599: $nf.="$_/Q ";
7600: }
7601:
7602: #-------------------------------------
7603:
7604:
7605: $_=$uword;
7606: if ((s/χ$/τψ/) && (m/[αειουωρ]τψ$/) && ($a=$$words{$_}) && ($a=~m/R/))
7607: {
7608: $nf.="$_/R ";
7609: }
7610:
7611: #-------------------------------------
7612:
7613:
7614: $_=$uword;
7615: if ((s/χϋισψ$/τψσρ/) && (m/[αειουωρ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/R/))
7616: {
7617: $nf.="$_/R ";
7618: }
7619:
7620: #-------------------------------------
7621:
7622:
7623: $_=$uword;
7624: if ((s/χ$/στψ/) && (m/στψ$/) && ($a=$$words{$_}) && ($a=~m/R/))
7625: {
7626: $nf.="$_/R ";
7627: }
7628:
7629: #-------------------------------------
7630:
7631:
7632: $_=$uword;
7633: if ((s/χϋισψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/R/))
7634: {
7635: $nf.="$_/R ";
7636: }
7637:
7638: #-------------------------------------
7639:
7640:
7641: $_=$uword;
7642: if ((s/ο$/ωκ/) && (m/[χμξςτ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/Z/))
7643: {
7644: $nf.="$_/Z ";
7645: }
7646:
7647: #-------------------------------------
7648:
7649:
7650: $_=$uword;
7651: if ((s/$/κ/) && (m/[σγ]λικ$/) && ($a=$$words{$_}) && ($a=~m/Z/))
7652: {
7653: $nf.="$_/Z ";
7654: }
7655:
7656: #-------------------------------------
7657:
7658:
7659: $_=$uword;
7660: if ((s/ε$/ικ/) && (m/ύικ$/) && ($a=$$words{$_}) && ($a=~m/Z/))
7661: {
7662: $nf.="$_/Z ";
7663: }
7664:
7665: #-------------------------------------
7666:
7667:
7668: $_=$uword;
7669: if ((s/οηο$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7670: {
7671: $nf.="$_/A ";
7672: }
7673:
7674: #-------------------------------------
7675:
7676:
7677: $_=$uword;
7678: if ((s/εηο$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7679: {
7680: $nf.="$_/A ";
7681: }
7682:
7683: #-------------------------------------
7684:
7685:
7686: $_=$uword;
7687: if ((s/ονυ$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7688: {
7689: $nf.="$_/A ";
7690: }
7691:
7692: #-------------------------------------
7693:
7694:
7695: $_=$uword;
7696: if ((s/ενυ$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7697: {
7698: $nf.="$_/A ";
7699: }
7700:
7701: #-------------------------------------
7702:
7703:
7704: $_=$uword;
7705: if ((s/ν$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7706: {
7707: $nf.="$_/A ";
7708: }
7709:
7710: #-------------------------------------
7711:
7712:
7713: $_=$uword;
7714: if ((s/ον$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7715: {
7716: $nf.="$_/A ";
7717: }
7718:
7719: #-------------------------------------
7720:
7721:
7722: $_=$uword;
7723: if ((s/εν$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7724: {
7725: $nf.="$_/A ";
7726: }
7727:
7728: #-------------------------------------
7729:
7730:
7731: $_=$uword;
7732: if ((s/ε$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7733: {
7734: $nf.="$_/A ";
7735: }
7736:
7737: #-------------------------------------
7738:
7739:
7740: $_=$uword;
7741: if ((s/θ$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7742: {
7743: $nf.="$_/A ";
7744: }
7745:
7746: #-------------------------------------
7747:
7748:
7749: $_=$uword;
7750: if ((s/νι$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7751: {
7752: $nf.="$_/A ";
7753: }
7754:
7755: #-------------------------------------
7756:
7757:
7758: $_=$uword;
7759: if ((s/αρ$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7760: {
7761: $nf.="$_/A ";
7762: }
7763:
7764: #-------------------------------------
7765:
7766:
7767: $_=$uword;
7768: if ((s/οκ$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7769: {
7770: $nf.="$_/A ";
7771: }
7772:
7773: #-------------------------------------
7774:
7775:
7776: $_=$uword;
7777: if ((s/οΰ$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7778: {
7779: $nf.="$_/A ";
7780: }
7781:
7782: #-------------------------------------
7783:
7784:
7785: $_=$uword;
7786: if ((s/εκ$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7787: {
7788: $nf.="$_/A ";
7789: }
7790:
7791: #-------------------------------------
7792:
7793:
7794: $_=$uword;
7795: if ((s/υΰ$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7796: {
7797: $nf.="$_/A ";
7798: }
7799:
7800: #-------------------------------------
7801:
7802:
7803: $_=$uword;
7804: if ((s/οε$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7805: {
7806: $nf.="$_/A ";
7807: }
7808:
7809: #-------------------------------------
7810:
7811:
7812: $_=$uword;
7813: if ((s/εε$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7814: {
7815: $nf.="$_/A ";
7816: }
7817:
7818: #-------------------------------------
7819:
7820:
7821: $_=$uword;
7822: if ((s/οηο$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7823: {
7824: $nf.="$_/A ";
7825: }
7826:
7827: #-------------------------------------
7828:
7829:
7830: $_=$uword;
7831: if ((s/ονυ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7832: {
7833: $nf.="$_/A ";
7834: }
7835:
7836: #-------------------------------------
7837:
7838:
7839: $_=$uword;
7840: if ((s/ν$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7841: {
7842: $nf.="$_/A ";
7843: }
7844:
7845: #-------------------------------------
7846:
7847:
7848: $_=$uword;
7849: if ((s/ον$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7850: {
7851: $nf.="$_/A ";
7852: }
7853:
7854: #-------------------------------------
7855:
7856:
7857: $_=$uword;
7858: if ((s/ε$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7859: {
7860: $nf.="$_/A ";
7861: }
7862:
7863: #-------------------------------------
7864:
7865:
7866: $_=$uword;
7867: if ((s/θ$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7868: {
7869: $nf.="$_/A ";
7870: }
7871:
7872: #-------------------------------------
7873:
7874:
7875: $_=$uword;
7876: if ((s/νι$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7877: {
7878: $nf.="$_/A ";
7879: }
7880:
7881: #-------------------------------------
7882:
7883:
7884: $_=$uword;
7885: if ((s/αρ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7886: {
7887: $nf.="$_/A ";
7888: }
7889:
7890: #-------------------------------------
7891:
7892:
7893: $_=$uword;
7894: if ((s/οκ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7895: {
7896: $nf.="$_/A ";
7897: }
7898:
7899: #-------------------------------------
7900:
7901:
7902: $_=$uword;
7903: if ((s/οΰ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7904: {
7905: $nf.="$_/A ";
7906: }
7907:
7908: #-------------------------------------
7909:
7910:
7911: $_=$uword;
7912: if ((s/υΰ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7913: {
7914: $nf.="$_/A ";
7915: }
7916:
7917: #-------------------------------------
7918:
7919:
7920: $_=$uword;
7921: if ((s/οε$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7922: {
7923: $nf.="$_/A ";
7924: }
7925:
7926: #-------------------------------------
7927:
7928:
7929: $_=$uword;
7930: if ((s/εηο$/ικ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7931: {
7932: $nf.="$_/A ";
7933: }
7934:
7935: #-------------------------------------
7936:
7937:
7938: $_=$uword;
7939: if ((s/ενυ$/ικ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7940: {
7941: $nf.="$_/A ";
7942: }
7943:
7944: #-------------------------------------
7945:
7946:
7947: $_=$uword;
7948: if ((s/ν$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7949: {
7950: $nf.="$_/A ";
7951: }
7952:
7953: #-------------------------------------
7954:
7955:
7956: $_=$uword;
7957: if ((s/εν$/ικ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7958: {
7959: $nf.="$_/A ";
7960: }
7961:
7962: #-------------------------------------
7963:
7964:
7965: $_=$uword;
7966: if ((s/ε$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7967: {
7968: $nf.="$_/A ";
7969: }
7970:
7971: #-------------------------------------
7972:
7973:
7974: $_=$uword;
7975: if ((s/θ$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7976: {
7977: $nf.="$_/A ";
7978: }
7979:
7980: #-------------------------------------
7981:
7982:
7983: $_=$uword;
7984: if ((s/νι$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7985: {
7986: $nf.="$_/A ";
7987: }
7988:
7989: #-------------------------------------
7990:
7991:
7992: $_=$uword;
7993: if ((s/εηοσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
7994: {
7995: $nf.="$_/A ";
7996: }
7997:
7998: #-------------------------------------
7999:
8000:
8001: $_=$uword;
8002: if ((s/ενυσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8003: {
8004: $nf.="$_/A ";
8005: }
8006:
8007: #-------------------------------------
8008:
8009:
8010: $_=$uword;
8011: if ((s/ινσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8012: {
8013: $nf.="$_/A ";
8014: }
8015:
8016: #-------------------------------------
8017:
8018:
8019: $_=$uword;
8020: if ((s/ενσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8021: {
8022: $nf.="$_/A ";
8023: }
8024:
8025: #-------------------------------------
8026:
8027:
8028: $_=$uword;
8029: if ((s/ιεσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8030: {
8031: $nf.="$_/A ";
8032: }
8033:
8034: #-------------------------------------
8035:
8036:
8037: $_=$uword;
8038: if ((s/ιθσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8039: {
8040: $nf.="$_/A ";
8041: }
8042:
8043: #-------------------------------------
8044:
8045:
8046: $_=$uword;
8047: if ((s/ινισρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8048: {
8049: $nf.="$_/A ";
8050: }
8051:
8052: #-------------------------------------
8053:
8054:
8055: $_=$uword;
8056: if ((s/ρρ$/ικ/) && (m/ξικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8057: {
8058: $nf.="$_/A ";
8059: }
8060:
8061: #-------------------------------------
8062:
8063:
8064: $_=$uword;
8065: if ((s/αρ$/ικ/) && (m/[φϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8066: {
8067: $nf.="$_/A ";
8068: }
8069:
8070: #-------------------------------------
8071:
8072:
8073: $_=$uword;
8074: if ((s/εκ$/ικ/) && (m/[φξϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8075: {
8076: $nf.="$_/A ";
8077: }
8078:
8079: #-------------------------------------
8080:
8081:
8082: $_=$uword;
8083: if ((s/εΰ$/ικ/) && (m/[φξϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8084: {
8085: $nf.="$_/A ";
8086: }
8087:
8088: #-------------------------------------
8089:
8090:
8091: $_=$uword;
8092: if ((s/ΰΰ$/ικ/) && (m/ξικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8093: {
8094: $nf.="$_/A ";
8095: }
8096:
8097: #-------------------------------------
8098:
8099:
8100: $_=$uword;
8101: if ((s/υΰ$/ικ/) && (m/[φϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8102: {
8103: $nf.="$_/A ";
8104: }
8105:
8106: #-------------------------------------
8107:
8108:
8109: $_=$uword;
8110: if ((s/εε$/ικ/) && (m/[φξϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8111: {
8112: $nf.="$_/A ";
8113: }
8114:
8115: #-------------------------------------
8116:
8117:
8118: $_=$uword;
8119: if ((s/αρσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8120: {
8121: $nf.="$_/A ";
8122: }
8123:
8124: #-------------------------------------
8125:
8126:
8127: $_=$uword;
8128: if ((s/εκσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8129: {
8130: $nf.="$_/A ";
8131: }
8132:
8133: #-------------------------------------
8134:
8135:
8136: $_=$uword;
8137: if ((s/υΰσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8138: {
8139: $nf.="$_/A ";
8140: }
8141:
8142: #-------------------------------------
8143:
8144:
8145: $_=$uword;
8146: if ((s/εεσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8147: {
8148: $nf.="$_/A ";
8149: }
8150:
8151: #-------------------------------------
8152:
8153:
8154: $_=$uword;
8155: if ((s/οηο$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8156: {
8157: $nf.="$_/A ";
8158: }
8159:
8160: #-------------------------------------
8161:
8162:
8163: $_=$uword;
8164: if ((s/ονυ$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8165: {
8166: $nf.="$_/A ";
8167: }
8168:
8169: #-------------------------------------
8170:
8171:
8172: $_=$uword;
8173: if ((s/ιν$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8174: {
8175: $nf.="$_/A ";
8176: }
8177:
8178: #-------------------------------------
8179:
8180:
8181: $_=$uword;
8182: if ((s/ων$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8183: {
8184: $nf.="$_/A ";
8185: }
8186:
8187: #-------------------------------------
8188:
8189:
8190: $_=$uword;
8191: if ((s/ον$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8192: {
8193: $nf.="$_/A ";
8194: }
8195:
8196: #-------------------------------------
8197:
8198:
8199: $_=$uword;
8200: if ((s/ιε$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8201: {
8202: $nf.="$_/A ";
8203: }
8204:
8205: #-------------------------------------
8206:
8207:
8208: $_=$uword;
8209: if ((s/ωε$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8210: {
8211: $nf.="$_/A ";
8212: }
8213:
8214: #-------------------------------------
8215:
8216:
8217: $_=$uword;
8218: if ((s/ιθ$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8219: {
8220: $nf.="$_/A ";
8221: }
8222:
8223: #-------------------------------------
8224:
8225:
8226: $_=$uword;
8227: if ((s/ωθ$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8228: {
8229: $nf.="$_/A ";
8230: }
8231:
8232: #-------------------------------------
8233:
8234:
8235: $_=$uword;
8236: if ((s/ινι$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8237: {
8238: $nf.="$_/A ";
8239: }
8240:
8241: #-------------------------------------
8242:
8243:
8244: $_=$uword;
8245: if ((s/ωνι$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8246: {
8247: $nf.="$_/A ";
8248: }
8249:
8250: #-------------------------------------
8251:
8252:
8253: $_=$uword;
8254: if ((s/αρ$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8255: {
8256: $nf.="$_/A ";
8257: }
8258:
8259: #-------------------------------------
8260:
8261:
8262: $_=$uword;
8263: if ((s/υΰ$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8264: {
8265: $nf.="$_/A ";
8266: }
8267:
8268: #-------------------------------------
8269:
8270:
8271: $_=$uword;
8272: if ((s/οε$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8273: {
8274: $nf.="$_/A ";
8275: }
8276:
8277: #-------------------------------------
8278:
8279:
8280: $_=$uword;
8281: if ((s/οηο$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8282: {
8283: $nf.="$_/A ";
8284: }
8285:
8286: #-------------------------------------
8287:
8288:
8289: $_=$uword;
8290: if ((s/ονυ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8291: {
8292: $nf.="$_/A ";
8293: }
8294:
8295: #-------------------------------------
8296:
8297:
8298: $_=$uword;
8299: if ((s/ων$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8300: {
8301: $nf.="$_/A ";
8302: }
8303:
8304: #-------------------------------------
8305:
8306:
8307: $_=$uword;
8308: if ((s/ον$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8309: {
8310: $nf.="$_/A ";
8311: }
8312:
8313: #-------------------------------------
8314:
8315:
8316: $_=$uword;
8317: if ((s/α$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8318: {
8319: $nf.="$_/A ";
8320: }
8321:
8322: #-------------------------------------
8323:
8324:
8325: $_=$uword;
8326: if ((s/οκ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8327: {
8328: $nf.="$_/A ";
8329: }
8330:
8331: #-------------------------------------
8332:
8333:
8334: $_=$uword;
8335: if ((s/υ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8336: {
8337: $nf.="$_/A ";
8338: }
8339:
8340: #-------------------------------------
8341:
8342:
8343: $_=$uword;
8344: if ((s/ο$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8345: {
8346: $nf.="$_/A ";
8347: }
8348:
8349: #-------------------------------------
8350:
8351:
8352: $_=$uword;
8353: if ((s/ω$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8354: {
8355: $nf.="$_/A ";
8356: }
8357:
8358: #-------------------------------------
8359:
8360:
8361: $_=$uword;
8362: if ((s/ωθ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8363: {
8364: $nf.="$_/A ";
8365: }
8366:
8367: #-------------------------------------
8368:
8369:
8370: $_=$uword;
8371: if ((s/ωνι$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8372: {
8373: $nf.="$_/A ";
8374: }
8375:
8376: #-------------------------------------
8377:
8378:
8379: $_=$uword;
8380: if ((s/α$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8381: {
8382: $nf.="$_/A ";
8383: }
8384:
8385: #-------------------------------------
8386:
8387:
8388: $_=$uword;
8389: if ((s/ο$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8390: {
8391: $nf.="$_/A ";
8392: }
8393:
8394: #-------------------------------------
8395:
8396:
8397: $_=$uword;
8398: if ((s/υ$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8399: {
8400: $nf.="$_/A ";
8401: }
8402:
8403: #-------------------------------------
8404:
8405:
8406: $_=$uword;
8407: if ((s/οκ$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8408: {
8409: $nf.="$_/A ";
8410: }
8411:
8412: #-------------------------------------
8413:
8414:
8415: $_=$uword;
8416: if ((s/ον$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8417: {
8418: $nf.="$_/A ";
8419: }
8420:
8421: #-------------------------------------
8422:
8423:
8424: $_=$uword;
8425: if ((s/ω$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8426: {
8427: $nf.="$_/A ";
8428: }
8429:
8430: #-------------------------------------
8431:
8432:
8433: $_=$uword;
8434: if ((s/ωθ$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8435: {
8436: $nf.="$_/A ";
8437: }
8438:
8439: #-------------------------------------
8440:
8441:
8442: $_=$uword;
8443: if ((s/ων$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8444: {
8445: $nf.="$_/A ";
8446: }
8447:
8448: #-------------------------------------
8449:
8450:
8451: $_=$uword;
8452: if ((s/ωνι$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
8453: {
8454: $nf.="$_/A ";
8455: }
8456:
8457: #-------------------------------------
8458:
8459:
8460: $_=$uword;
8461: if ((s/$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8462: {
8463: $nf.="$_/S ";
8464: }
8465:
8466: #-------------------------------------
8467:
8468:
8469: $_=$uword;
8470: if ((s/α$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8471: {
8472: $nf.="$_/S ";
8473: }
8474:
8475: #-------------------------------------
8476:
8477:
8478: $_=$uword;
8479: if ((s/ο$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8480: {
8481: $nf.="$_/S ";
8482: }
8483:
8484: #-------------------------------------
8485:
8486:
8487: $_=$uword;
8488: if ((s/ω$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8489: {
8490: $nf.="$_/S ";
8491: }
8492:
8493: #-------------------------------------
8494:
8495:
8496: $_=$uword;
8497: if ((s/εξ$/ξωκ/) && (m/[^εκμξψ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8498: {
8499: $nf.="$_/S ";
8500: }
8501:
8502: #-------------------------------------
8503:
8504:
8505: $_=$uword;
8506: if ((s/$/ωκ/) && (m/εξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8507: {
8508: $nf.="$_/S ";
8509: }
8510:
8511: #-------------------------------------
8512:
8513:
8514: $_=$uword;
8515: if ((s/εξ$/κξωκ/) && (m/κξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8516: {
8517: $nf.="$_/S ";
8518: }
8519:
8520: #-------------------------------------
8521:
8522:
8523: $_=$uword;
8524: if ((s/οξ$/ξωκ/) && (m/μξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8525: {
8526: $nf.="$_/S ";
8527: }
8528:
8529: #-------------------------------------
8530:
8531:
8532: $_=$uword;
8533: if ((s/εξ$/ψξωκ/) && (m/ψξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8534: {
8535: $nf.="$_/S ";
8536: }
8537:
8538: #-------------------------------------
8539:
8540:
8541: $_=$uword;
8542: if ((s/ξα$/ξωκ/) && (m/[^ξ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8543: {
8544: $nf.="$_/S ";
8545: }
8546:
8547: #-------------------------------------
8548:
8549:
8550: $_=$uword;
8551: if ((s/ξο$/ξωκ/) && (m/[^ξ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8552: {
8553: $nf.="$_/S ";
8554: }
8555:
8556: #-------------------------------------
8557:
8558:
8559: $_=$uword;
8560: if ((s/ξω$/ξωκ/) && (m/[^ξ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8561: {
8562: $nf.="$_/S ";
8563: }
8564:
8565: #-------------------------------------
8566:
8567:
8568: $_=$uword;
8569: if ((s/ολ$/λικ/) && (m/[^αεικουωψ]λικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8570: {
8571: $nf.="$_/S ";
8572: }
8573:
8574: #-------------------------------------
8575:
8576:
8577: $_=$uword;
8578: if ((s/$/ικ/) && (m/[αειουω]λικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8579: {
8580: $nf.="$_/S ";
8581: }
8582:
8583: #-------------------------------------
8584:
8585:
8586: $_=$uword;
8587: if ((s/ελ$/κλικ/) && (m/κλικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8588: {
8589: $nf.="$_/S ";
8590: }
8591:
8592: #-------------------------------------
8593:
8594:
8595: $_=$uword;
8596: if ((s/ελ$/ψλικ/) && (m/ψλικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8597: {
8598: $nf.="$_/S ";
8599: }
8600:
8601: #-------------------------------------
8602:
8603:
8604: $_=$uword;
8605: if ((s/$/ικ/) && (m/[ηφώθύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8606: {
8607: $nf.="$_/S ";
8608: }
8609:
8610: #-------------------------------------
8611:
8612:
8613: $_=$uword;
8614: if ((s/α$/ικ/) && (m/[ηφλθώύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8615: {
8616: $nf.="$_/S ";
8617: }
8618:
8619: #-------------------------------------
8620:
8621:
8622: $_=$uword;
8623: if ((s/ο$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8624: {
8625: $nf.="$_/S ";
8626: }
8627:
8628: #-------------------------------------
8629:
8630:
8631: $_=$uword;
8632: if ((s/ε$/ικ/) && (m/[φώύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8633: {
8634: $nf.="$_/S ";
8635: }
8636:
8637: #-------------------------------------
8638:
8639:
8640: $_=$uword;
8641: if ((s/ι$/ικ/) && (m/[ηφλθώύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8642: {
8643: $nf.="$_/S ";
8644: }
8645:
8646: #-------------------------------------
8647:
8648:
8649: $_=$uword;
8650: if ((s/$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8651: {
8652: $nf.="$_/S ";
8653: }
8654:
8655: #-------------------------------------
8656:
8657:
8658: $_=$uword;
8659: if ((s/α$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8660: {
8661: $nf.="$_/S ";
8662: }
8663:
8664: #-------------------------------------
8665:
8666:
8667: $_=$uword;
8668: if ((s/ο$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8669: {
8670: $nf.="$_/S ";
8671: }
8672:
8673: #-------------------------------------
8674:
8675:
8676: $_=$uword;
8677: if ((s/ω$/οκ/) && (m/[^ηθ]οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8678: {
8679: $nf.="$_/S ";
8680: }
8681:
8682: #-------------------------------------
8683:
8684:
8685: $_=$uword;
8686: if ((s/ι$/οκ/) && (m/[ηθ]οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8687: {
8688: $nf.="$_/S ";
8689: }
8690:
8691: #-------------------------------------
8692:
8693:
8694: $_=$uword;
8695: if ((s/$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8696: {
8697: $nf.="$_/S ";
8698: }
8699:
8700: #-------------------------------------
8701:
8702:
8703: $_=$uword;
8704: if ((s/α$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8705: {
8706: $nf.="$_/S ";
8707: }
8708:
8709: #-------------------------------------
8710:
8711:
8712: $_=$uword;
8713: if ((s/ο$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8714: {
8715: $nf.="$_/S ";
8716: }
8717:
8718: #-------------------------------------
8719:
8720:
8721: $_=$uword;
8722: if ((s/ω$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
8723: {
8724: $nf.="$_/S ";
8725: }
8726:
8727: #-------------------------------------
8728:
8729:
8730: $_=$uword;
8731: if ((s/α$/ωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/X/))
8732: {
8733: $nf.="$_/X ";
8734: }
8735:
8736: #-------------------------------------
8737:
8738:
8739: $_=$uword;
8740: if ((s/ο$/ωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/X/))
8741: {
8742: $nf.="$_/X ";
8743: }
8744:
8745: #-------------------------------------
8746:
8747:
8748: $_=$uword;
8749: if ((s/ω$/ωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/X/))
8750: {
8751: $nf.="$_/X ";
8752: }
8753:
8754: #-------------------------------------
8755:
8756:
8757: $_=$uword;
8758: if ((s/εε$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8759: {
8760: $nf.="$_/E ";
8761: }
8762:
8763: #-------------------------------------
8764:
8765:
8766: $_=$uword;
8767: if ((s/εκ$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8768: {
8769: $nf.="$_/E ";
8770: }
8771:
8772: #-------------------------------------
8773:
8774:
8775: $_=$uword;
8776: if ((s/κ$/ε/) && (m/εε$/) && ($a=$$words{$_}) && ($a=~m/E/))
8777: {
8778: $nf.="$_/E ";
8779: }
8780:
8781: #-------------------------------------
8782:
8783:
8784: $_=$uword;
8785: if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8786: {
8787: $nf.="$_/E ";
8788: }
8789:
8790: #-------------------------------------
8791:
8792:
8793: $_=$uword;
8794: if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8795: {
8796: $nf.="$_/E ";
8797: }
8798:
8799: #-------------------------------------
8800:
8801:
8802: $_=$uword;
8803: if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8804: {
8805: $nf.="$_/E ";
8806: }
8807:
8808: #-------------------------------------
8809:
8810:
8811: $_=$uword;
8812: if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8813: {
8814: $nf.="$_/E ";
8815: }
8816:
8817: #-------------------------------------
8818:
8819:
8820: $_=$uword;
8821: if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8822: {
8823: $nf.="$_/E ";
8824: }
8825:
8826: #-------------------------------------
8827:
8828:
8829: $_=$uword;
8830: if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8831: {
8832: $nf.="$_/E ";
8833: }
8834:
8835: #-------------------------------------
8836:
8837:
8838: $_=$uword;
8839: if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8840: {
8841: $nf.="$_/E ";
8842: }
8843:
8844: #-------------------------------------
8845:
8846:
8847: $_=$uword;
8848: if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8849: {
8850: $nf.="$_/E ";
8851: }
8852:
8853: #-------------------------------------
8854:
8855:
8856: $_=$uword;
8857: if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
8858: {
8859: $nf.="$_/E ";
8860: }
8861:
8862: #-------------------------------------
8863:
8864:
8865: $_=$uword;
8866: if ((s/ω$/α/) && (m/[^ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8867: {
8868: $nf.="$_/I ";
8869: }
8870:
8871: #-------------------------------------
8872:
8873:
8874: $_=$uword;
8875: if ((s/ι$/α/) && (m/[ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8876: {
8877: $nf.="$_/I ";
8878: }
8879:
8880: #-------------------------------------
8881:
8882:
8883: $_=$uword;
8884: if ((s/ε$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8885: {
8886: $nf.="$_/I ";
8887: }
8888:
8889: #-------------------------------------
8890:
8891:
8892: $_=$uword;
8893: if ((s/υ$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8894: {
8895: $nf.="$_/I ";
8896: }
8897:
8898: #-------------------------------------
8899:
8900:
8901: $_=$uword;
8902: if ((s/οκ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8903: {
8904: $nf.="$_/I ";
8905: }
8906:
8907: #-------------------------------------
8908:
8909:
8910: $_=$uword;
8911: if ((s/οΰ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8912: {
8913: $nf.="$_/I ";
8914: }
8915:
8916: #-------------------------------------
8917:
8918:
8919: $_=$uword;
8920: if ((s/εκ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8921: {
8922: $nf.="$_/I ";
8923: }
8924:
8925: #-------------------------------------
8926:
8927:
8928: $_=$uword;
8929: if ((s/εΰ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8930: {
8931: $nf.="$_/I ";
8932: }
8933:
8934: #-------------------------------------
8935:
8936:
8937: $_=$uword;
8938: if ((s/$/α/) && (m/[^λ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8939: {
8940: $nf.="$_/I ";
8941: }
8942:
8943: #-------------------------------------
8944:
8945:
8946: $_=$uword;
8947: if ((s/ολ$/λα/) && (m/[^αεφικουγώϋψωΰρ]λα$/) && ($a=$$words{$_}) && ($a=~m/I/))
8948: {
8949: $nf.="$_/I ";
8950: }
8951:
8952: #-------------------------------------
8953:
8954:
8955: $_=$uword;
8956: if ((s/λ$/λα/) && (m/[αειουωΰρ]λα$/) && ($a=$$words{$_}) && ($a=~m/I/))
8957: {
8958: $nf.="$_/I ";
8959: }
8960:
8961: #-------------------------------------
8962:
8963:
8964: $_=$uword;
8965: if ((s/ελ$/λα/) && (m/[φγώϋ]λα$/) && ($a=$$words{$_}) && ($a=~m/I/))
8966: {
8967: $nf.="$_/I ";
8968: }
8969:
8970: #-------------------------------------
8971:
8972:
8973: $_=$uword;
8974: if ((s/ελ$/κλα/) && (m/κλα$/) && ($a=$$words{$_}) && ($a=~m/I/))
8975: {
8976: $nf.="$_/I ";
8977: }
8978:
8979: #-------------------------------------
8980:
8981:
8982: $_=$uword;
8983: if ((s/ελ$/ψλα/) && (m/ψλα$/) && ($a=$$words{$_}) && ($a=~m/I/))
8984: {
8985: $nf.="$_/I ";
8986: }
8987:
8988: #-------------------------------------
8989:
8990:
8991: $_=$uword;
8992: if ((s/ν$//) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
8993: {
8994: $nf.="$_/I ";
8995: }
8996:
8997: #-------------------------------------
8998:
8999:
9000: $_=$uword;
9001: if ((s/νι$//) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
9002: {
9003: $nf.="$_/I ";
9004: }
9005:
9006: #-------------------------------------
9007:
9008:
9009: $_=$uword;
9010: if ((s/θ$//) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
9011: {
9012: $nf.="$_/I ";
9013: }
9014:
9015: #-------------------------------------
9016:
9017:
9018: $_=$uword;
9019: if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9020: {
9021: $nf.="$_/I ";
9022: }
9023:
9024: #-------------------------------------
9025:
9026:
9027: $_=$uword;
9028: if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9029: {
9030: $nf.="$_/I ";
9031: }
9032:
9033: #-------------------------------------
9034:
9035:
9036: $_=$uword;
9037: if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9038: {
9039: $nf.="$_/I ";
9040: }
9041:
9042: #-------------------------------------
9043:
9044:
9045: $_=$uword;
9046: if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9047: {
9048: $nf.="$_/I ";
9049: }
9050:
9051: #-------------------------------------
9052:
9053:
9054: $_=$uword;
9055: if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9056: {
9057: $nf.="$_/I ";
9058: }
9059:
9060: #-------------------------------------
9061:
9062:
9063: $_=$uword;
9064: if ((s/κ$/ρ/) && (m/[ειυ]ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9065: {
9066: $nf.="$_/I ";
9067: }
9068:
9069: #-------------------------------------
9070:
9071:
9072: $_=$uword;
9073: if ((s/εξ$/ξρ/) && (m/[^αεϊικουωψ]ξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9074: {
9075: $nf.="$_/I ";
9076: }
9077:
9078: #-------------------------------------
9079:
9080:
9081: $_=$uword;
9082: if ((s/ψ$/ρ/) && (m/[αειουω]ξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9083: {
9084: $nf.="$_/I ";
9085: }
9086:
9087: #-------------------------------------
9088:
9089:
9090: $_=$uword;
9091: if ((s/εξ$/κξρ/) && (m/κξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9092: {
9093: $nf.="$_/I ";
9094: }
9095:
9096: #-------------------------------------
9097:
9098:
9099: $_=$uword;
9100: if ((s/εξ$/ψξρ/) && (m/ψξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9101: {
9102: $nf.="$_/I ";
9103: }
9104:
9105: #-------------------------------------
9106:
9107:
9108: $_=$uword;
9109: if ((s/ν$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9110: {
9111: $nf.="$_/I ";
9112: }
9113:
9114: #-------------------------------------
9115:
9116:
9117: $_=$uword;
9118: if ((s/νι$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9119: {
9120: $nf.="$_/I ";
9121: }
9122:
9123: #-------------------------------------
9124:
9125:
9126: $_=$uword;
9127: if ((s/θ$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
9128: {
9129: $nf.="$_/I ";
9130: }
9131:
9132: #-------------------------------------
9133:
9134:
9135: $_=$uword;
9136: if ((s/ω$/α/) && (m/[^ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9137: {
9138: $nf.="$_/H ";
9139: }
9140:
9141: #-------------------------------------
9142:
9143:
9144: $_=$uword;
9145: if ((s/ι$/α/) && (m/[ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9146: {
9147: $nf.="$_/H ";
9148: }
9149:
9150: #-------------------------------------
9151:
9152:
9153: $_=$uword;
9154: if ((s/ε$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9155: {
9156: $nf.="$_/H ";
9157: }
9158:
9159: #-------------------------------------
9160:
9161:
9162: $_=$uword;
9163: if ((s/υ$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9164: {
9165: $nf.="$_/H ";
9166: }
9167:
9168: #-------------------------------------
9169:
9170:
9171: $_=$uword;
9172: if ((s/οκ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9173: {
9174: $nf.="$_/H ";
9175: }
9176:
9177: #-------------------------------------
9178:
9179:
9180: $_=$uword;
9181: if ((s/οΰ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9182: {
9183: $nf.="$_/H ";
9184: }
9185:
9186: #-------------------------------------
9187:
9188:
9189: $_=$uword;
9190: if ((s/εκ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9191: {
9192: $nf.="$_/H ";
9193: }
9194:
9195: #-------------------------------------
9196:
9197:
9198: $_=$uword;
9199: if ((s/εΰ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
9200: {
9201: $nf.="$_/H ";
9202: }
9203:
9204: #-------------------------------------
9205:
9206:
9207: $_=$uword;
9208: if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
9209: {
9210: $nf.="$_/H ";
9211: }
9212:
9213: #-------------------------------------
9214:
9215:
9216: $_=$uword;
9217: if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
9218: {
9219: $nf.="$_/H ";
9220: }
9221:
9222: #-------------------------------------
9223:
9224:
9225: $_=$uword;
9226: if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
9227: {
9228: $nf.="$_/H ";
9229: }
9230:
9231: #-------------------------------------
9232:
9233:
9234: $_=$uword;
9235: if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
9236: {
9237: $nf.="$_/H ";
9238: }
9239:
9240: #-------------------------------------
9241:
9242:
9243: $_=$uword;
9244: if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
9245: {
9246: $nf.="$_/H ";
9247: }
9248:
9249: #-------------------------------------
9250:
9251:
9252: $_=$uword;
9253: if ((s/α$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9254: {
9255: $nf.="$_/K ";
9256: }
9257:
9258: #-------------------------------------
9259:
9260:
9261: $_=$uword;
9262: if ((s/υ$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9263: {
9264: $nf.="$_/K ";
9265: }
9266:
9267: #-------------------------------------
9268:
9269:
9270: $_=$uword;
9271: if ((s/ον$//) && (m/[^εφκογώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9272: {
9273: $nf.="$_/K ";
9274: }
9275:
9276: #-------------------------------------
9277:
9278:
9279: $_=$uword;
9280: if ((s/ε$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9281: {
9282: $nf.="$_/K ";
9283: }
9284:
9285: #-------------------------------------
9286:
9287:
9288: $_=$uword;
9289: if ((s/ω$//) && (m/[^ηεφκλοθώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9290: {
9291: $nf.="$_/K ";
9292: }
9293:
9294: #-------------------------------------
9295:
9296:
9297: $_=$uword;
9298: if ((s/ι$//) && (m/[ηφλθώϋύ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9299: {
9300: $nf.="$_/K ";
9301: }
9302:
9303: #-------------------------------------
9304:
9305:
9306: $_=$uword;
9307: if ((s/εκ$//) && (m/[φώϋύ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9308: {
9309: $nf.="$_/K ";
9310: }
9311:
9312: #-------------------------------------
9313:
9314:
9315: $_=$uword;
9316: if ((s/οχ$//) && (m/[^εφκογώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9317: {
9318: $nf.="$_/K ";
9319: }
9320:
9321: #-------------------------------------
9322:
9323:
9324: $_=$uword;
9325: if ((s/αν$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9326: {
9327: $nf.="$_/K ";
9328: }
9329:
9330: #-------------------------------------
9331:
9332:
9333: $_=$uword;
9334: if ((s/ανι$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9335: {
9336: $nf.="$_/K ";
9337: }
9338:
9339: #-------------------------------------
9340:
9341:
9342: $_=$uword;
9343: if ((s/αθ$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
9344: {
9345: $nf.="$_/K ";
9346: }
9347:
9348: #-------------------------------------
9349:
9350:
9351: $_=$uword;
9352: if ((s/ρ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9353: {
9354: $nf.="$_/K ";
9355: }
9356:
9357: #-------------------------------------
9358:
9359:
9360: $_=$uword;
9361: if ((s/ΰ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9362: {
9363: $nf.="$_/K ";
9364: }
9365:
9366: #-------------------------------------
9367:
9368:
9369: $_=$uword;
9370: if ((s/εν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9371: {
9372: $nf.="$_/K ";
9373: }
9374:
9375: #-------------------------------------
9376:
9377:
9378: $_=$uword;
9379: if ((s/ε$/κ/) && (m/[^ι]κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9380: {
9381: $nf.="$_/K ";
9382: }
9383:
9384: #-------------------------------------
9385:
9386:
9387: $_=$uword;
9388: if ((s/ι$/κ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9389: {
9390: $nf.="$_/K ";
9391: }
9392:
9393: #-------------------------------------
9394:
9395:
9396: $_=$uword;
9397: if ((s/ι$/κ/) && (m/[αεουΰρ]κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9398: {
9399: $nf.="$_/K ";
9400: }
9401:
9402: #-------------------------------------
9403:
9404:
9405: $_=$uword;
9406: if ((s/εχ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9407: {
9408: $nf.="$_/K ";
9409: }
9410:
9411: #-------------------------------------
9412:
9413:
9414: $_=$uword;
9415: if ((s/ρν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9416: {
9417: $nf.="$_/K ";
9418: }
9419:
9420: #-------------------------------------
9421:
9422:
9423: $_=$uword;
9424: if ((s/ρνι$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9425: {
9426: $nf.="$_/K ";
9427: }
9428:
9429: #-------------------------------------
9430:
9431:
9432: $_=$uword;
9433: if ((s/ρθ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9434: {
9435: $nf.="$_/K ";
9436: }
9437:
9438: #-------------------------------------
9439:
9440:
9441: $_=$uword;
9442: if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9443: {
9444: $nf.="$_/K ";
9445: }
9446:
9447: #-------------------------------------
9448:
9449:
9450: $_=$uword;
9451: if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9452: {
9453: $nf.="$_/K ";
9454: }
9455:
9456: #-------------------------------------
9457:
9458:
9459: $_=$uword;
9460: if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9461: {
9462: $nf.="$_/K ";
9463: }
9464:
9465: #-------------------------------------
9466:
9467:
9468: $_=$uword;
9469: if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9470: {
9471: $nf.="$_/K ";
9472: }
9473:
9474: #-------------------------------------
9475:
9476:
9477: $_=$uword;
9478: if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9479: {
9480: $nf.="$_/K ";
9481: }
9482:
9483: #-------------------------------------
9484:
9485:
9486: $_=$uword;
9487: if ((s/εκ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9488: {
9489: $nf.="$_/K ";
9490: }
9491:
9492: #-------------------------------------
9493:
9494:
9495: $_=$uword;
9496: if ((s/ρν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9497: {
9498: $nf.="$_/K ";
9499: }
9500:
9501: #-------------------------------------
9502:
9503:
9504: $_=$uword;
9505: if ((s/ρνι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9506: {
9507: $nf.="$_/K ";
9508: }
9509:
9510: #-------------------------------------
9511:
9512:
9513: $_=$uword;
9514: if ((s/ρθ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
9515: {
9516: $nf.="$_/K ";
9517: }
9518:
9519: #-------------------------------------
9520:
9521:
9522: $_=$uword;
9523: if ((s/ρ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9524: {
9525: $nf.="$_/K ";
9526: }
9527:
9528: #-------------------------------------
9529:
9530:
9531: $_=$uword;
9532: if ((s/α$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9533: {
9534: $nf.="$_/K ";
9535: }
9536:
9537: #-------------------------------------
9538:
9539:
9540: $_=$uword;
9541: if ((s/ΰ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9542: {
9543: $nf.="$_/K ";
9544: }
9545:
9546: #-------------------------------------
9547:
9548:
9549: $_=$uword;
9550: if ((s/υ$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9551: {
9552: $nf.="$_/K ";
9553: }
9554:
9555: #-------------------------------------
9556:
9557:
9558: $_=$uword;
9559: if ((s/ν$//) && (m/ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9560: {
9561: $nf.="$_/K ";
9562: }
9563:
9564: #-------------------------------------
9565:
9566:
9567: $_=$uword;
9568: if ((s/ι$/ε/) && (m/ιε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9569: {
9570: $nf.="$_/K ";
9571: }
9572:
9573: #-------------------------------------
9574:
9575:
9576: $_=$uword;
9577: if ((s/εκ$/ε/) && (m/[^φιγύψ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9578: {
9579: $nf.="$_/K ";
9580: }
9581:
9582: #-------------------------------------
9583:
9584:
9585: $_=$uword;
9586: if ((s/$/ε/) && (m/[φύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9587: {
9588: $nf.="$_/K ";
9589: }
9590:
9591: #-------------------------------------
9592:
9593:
9594: $_=$uword;
9595: if ((s/κ$/ε/) && (m/ιε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9596: {
9597: $nf.="$_/K ";
9598: }
9599:
9600: #-------------------------------------
9601:
9602:
9603: $_=$uword;
9604: if ((s/ικ$/ψε/) && (m/ψε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9605: {
9606: $nf.="$_/K ";
9607: }
9608:
9609: #-------------------------------------
9610:
9611:
9612: $_=$uword;
9613: if ((s/ρν$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9614: {
9615: $nf.="$_/K ";
9616: }
9617:
9618: #-------------------------------------
9619:
9620:
9621: $_=$uword;
9622: if ((s/αν$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9623: {
9624: $nf.="$_/K ";
9625: }
9626:
9627: #-------------------------------------
9628:
9629:
9630: $_=$uword;
9631: if ((s/ρνι$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9632: {
9633: $nf.="$_/K ";
9634: }
9635:
9636: #-------------------------------------
9637:
9638:
9639: $_=$uword;
9640: if ((s/ανι$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9641: {
9642: $nf.="$_/K ";
9643: }
9644:
9645: #-------------------------------------
9646:
9647:
9648: $_=$uword;
9649: if ((s/ρθ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9650: {
9651: $nf.="$_/K ";
9652: }
9653:
9654: #-------------------------------------
9655:
9656:
9657: $_=$uword;
9658: if ((s/αθ$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
9659: {
9660: $nf.="$_/K ";
9661: }
9662:
9663: #-------------------------------------
9664:
9665:
9666: $_=$uword;
9667: if ((s/α$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9668: {
9669: $nf.="$_/K ";
9670: }
9671:
9672: #-------------------------------------
9673:
9674:
9675: $_=$uword;
9676: if ((s/υ$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9677: {
9678: $nf.="$_/K ";
9679: }
9680:
9681: #-------------------------------------
9682:
9683:
9684: $_=$uword;
9685: if ((s/ν$//) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9686: {
9687: $nf.="$_/K ";
9688: }
9689:
9690: #-------------------------------------
9691:
9692:
9693: $_=$uword;
9694: if ((s/ε$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9695: {
9696: $nf.="$_/K ";
9697: }
9698:
9699: #-------------------------------------
9700:
9701:
9702: $_=$uword;
9703: if ((s/ι$/ο/) && (m/[ιώϋ]λο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9704: {
9705: $nf.="$_/K ";
9706: }
9707:
9708: #-------------------------------------
9709:
9710:
9711: $_=$uword;
9712: if ((s/$/ο/) && (m/[χηδστ]ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9713: {
9714: $nf.="$_/K ";
9715: }
9716:
9717: #-------------------------------------
9718:
9719:
9720: $_=$uword;
9721: if ((s/αν$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9722: {
9723: $nf.="$_/K ";
9724: }
9725:
9726: #-------------------------------------
9727:
9728:
9729: $_=$uword;
9730: if ((s/ανι$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9731: {
9732: $nf.="$_/K ";
9733: }
9734:
9735: #-------------------------------------
9736:
9737:
9738: $_=$uword;
9739: if ((s/αθ$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
9740: {
9741: $nf.="$_/K ";
9742: }
9743:
9744: #-------------------------------------
9745:
9746:
9747: $_=$uword;
9748: if ((s/α$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
9749: {
9750: $nf.="$_/J ";
9751: }
9752:
9753: #-------------------------------------
9754:
9755:
9756: $_=$uword;
9757: if ((s/υ$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
9758: {
9759: $nf.="$_/J ";
9760: }
9761:
9762: #-------------------------------------
9763:
9764:
9765: $_=$uword;
9766: if ((s/ον$//) && (m/[^εφκογώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
9767: {
9768: $nf.="$_/J ";
9769: }
9770:
9771: #-------------------------------------
9772:
9773:
9774: $_=$uword;
9775: if ((s/ε$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
9776: {
9777: $nf.="$_/J ";
9778: }
9779:
9780: #-------------------------------------
9781:
9782:
9783: $_=$uword;
9784: if ((s/ρ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9785: {
9786: $nf.="$_/J ";
9787: }
9788:
9789: #-------------------------------------
9790:
9791:
9792: $_=$uword;
9793: if ((s/ΰ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9794: {
9795: $nf.="$_/J ";
9796: }
9797:
9798: #-------------------------------------
9799:
9800:
9801: $_=$uword;
9802: if ((s/εν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9803: {
9804: $nf.="$_/J ";
9805: }
9806:
9807: #-------------------------------------
9808:
9809:
9810: $_=$uword;
9811: if ((s/ε$/κ/) && (m/[^ι]κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9812: {
9813: $nf.="$_/J ";
9814: }
9815:
9816: #-------------------------------------
9817:
9818:
9819: $_=$uword;
9820: if ((s/ι$/κ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9821: {
9822: $nf.="$_/J ";
9823: }
9824:
9825: #-------------------------------------
9826:
9827:
9828: $_=$uword;
9829: if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9830: {
9831: $nf.="$_/J ";
9832: }
9833:
9834: #-------------------------------------
9835:
9836:
9837: $_=$uword;
9838: if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9839: {
9840: $nf.="$_/J ";
9841: }
9842:
9843: #-------------------------------------
9844:
9845:
9846: $_=$uword;
9847: if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9848: {
9849: $nf.="$_/J ";
9850: }
9851:
9852: #-------------------------------------
9853:
9854:
9855: $_=$uword;
9856: if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
9857: {
9858: $nf.="$_/J ";
9859: }
9860:
9861: #-------------------------------------
9862:
9863:
9864: $_=$uword;
9865: if ((s/ρ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
9866: {
9867: $nf.="$_/J ";
9868: }
9869:
9870: #-------------------------------------
9871:
9872:
9873: $_=$uword;
9874: if ((s/α$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
9875: {
9876: $nf.="$_/J ";
9877: }
9878:
9879: #-------------------------------------
9880:
9881:
9882: $_=$uword;
9883: if ((s/ΰ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
9884: {
9885: $nf.="$_/J ";
9886: }
9887:
9888: #-------------------------------------
9889:
9890:
9891: $_=$uword;
9892: if ((s/υ$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
9893: {
9894: $nf.="$_/J ";
9895: }
9896:
9897: #-------------------------------------
9898:
9899:
9900: $_=$uword;
9901: if ((s/ν$//) && (m/ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
9902: {
9903: $nf.="$_/J ";
9904: }
9905:
9906: #-------------------------------------
9907:
9908:
9909: $_=$uword;
9910: if ((s/ι$/ε/) && (m/ιε$/) && ($a=$$words{$_}) && ($a=~m/J/))
9911: {
9912: $nf.="$_/J ";
9913: }
9914:
9915: #-------------------------------------
9916:
9917:
9918: $_=$uword;
9919: if ((s/α$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
9920: {
9921: $nf.="$_/J ";
9922: }
9923:
9924: #-------------------------------------
9925:
9926:
9927: $_=$uword;
9928: if ((s/υ$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
9929: {
9930: $nf.="$_/J ";
9931: }
9932:
9933: #-------------------------------------
9934:
9935:
9936: $_=$uword;
9937: if ((s/ν$//) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
9938: {
9939: $nf.="$_/J ";
9940: }
9941:
9942: #-------------------------------------
9943:
9944:
9945: $_=$uword;
9946: if ((s/ε$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
9947: {
9948: $nf.="$_/J ";
9949: }
9950:
9951: #-------------------------------------
9952:
9953:
9954: $_=$uword;
9955: if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
9956: {
9957: $nf.="$_/N ";
9958: }
9959:
9960: #-------------------------------------
9961:
9962:
9963: $_=$uword;
9964: if ((s/ΰ$//) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
9965: {
9966: $nf.="$_/N ";
9967: }
9968:
9969: #-------------------------------------
9970:
9971:
9972: $_=$uword;
9973: if ((s/εκ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
9974: {
9975: $nf.="$_/N ";
9976: }
9977:
9978: #-------------------------------------
9979:
9980:
9981: $_=$uword;
9982: if ((s/αν$/ψ/) && (m/[φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
9983: {
9984: $nf.="$_/N ";
9985: }
9986:
9987: #-------------------------------------
9988:
9989:
9990: $_=$uword;
9991: if ((s/ρν$/ψ/) && (m/[^φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
9992: {
9993: $nf.="$_/N ";
9994: }
9995:
9996: #-------------------------------------
9997:
9998:
9999: $_=$uword;
10000: if ((s/ανι$/ψ/) && (m/[φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
10001: {
10002: $nf.="$_/N ";
10003: }
10004:
10005: #-------------------------------------
10006:
10007:
10008: $_=$uword;
10009: if ((s/ρνι$/ψ/) && (m/[^φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
10010: {
10011: $nf.="$_/N ";
10012: }
10013:
10014: #-------------------------------------
10015:
10016:
10017: $_=$uword;
10018: if ((s/αθ$/ψ/) && (m/[φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
10019: {
10020: $nf.="$_/N ";
10021: }
10022:
10023: #-------------------------------------
10024:
10025:
10026: $_=$uword;
10027: if ((s/ρθ$/ψ/) && (m/[^φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
10028: {
10029: $nf.="$_/N ";
10030: }
10031:
10032: #-------------------------------------
10033:
10034:
10035: $_=$uword;
10036: if ((s/α$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10037: {
10038: $nf.="$_/N ";
10039: }
10040:
10041: #-------------------------------------
10042:
10043:
10044: $_=$uword;
10045: if ((s/υ$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10046: {
10047: $nf.="$_/N ";
10048: }
10049:
10050: #-------------------------------------
10051:
10052:
10053: $_=$uword;
10054: if ((s/ον$//) && (m/[^φγώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10055: {
10056: $nf.="$_/N ";
10057: }
10058:
10059: #-------------------------------------
10060:
10061:
10062: $_=$uword;
10063: if ((s/ε$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10064: {
10065: $nf.="$_/N ";
10066: }
10067:
10068: #-------------------------------------
10069:
10070:
10071: $_=$uword;
10072: if ((s/οχ$//) && (m/[^φγώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10073: {
10074: $nf.="$_/N ";
10075: }
10076:
10077: #-------------------------------------
10078:
10079:
10080: $_=$uword;
10081: if ((s/αν$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10082: {
10083: $nf.="$_/N ";
10084: }
10085:
10086: #-------------------------------------
10087:
10088:
10089: $_=$uword;
10090: if ((s/ανι$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10091: {
10092: $nf.="$_/N ";
10093: }
10094:
10095: #-------------------------------------
10096:
10097:
10098: $_=$uword;
10099: if ((s/αθ$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
10100: {
10101: $nf.="$_/N ";
10102: }
10103:
10104: #-------------------------------------
10105:
10106:
10107: $_=$uword;
10108: if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10109: {
10110: $nf.="$_/F ";
10111: }
10112:
10113: #-------------------------------------
10114:
10115:
10116: $_=$uword;
10117: if ((s/ΰ$//) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10118: {
10119: $nf.="$_/F ";
10120: }
10121:
10122: #-------------------------------------
10123:
10124:
10125: $_=$uword;
10126: if ((s/λα$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10127: {
10128: $nf.="$_/F ";
10129: }
10130:
10131: #-------------------------------------
10132:
10133:
10134: $_=$uword;
10135: if ((s/λυ$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10136: {
10137: $nf.="$_/F ";
10138: }
10139:
10140: #-------------------------------------
10141:
10142:
10143: $_=$uword;
10144: if ((s/λον$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10145: {
10146: $nf.="$_/F ";
10147: }
10148:
10149: #-------------------------------------
10150:
10151:
10152: $_=$uword;
10153: if ((s/λε$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10154: {
10155: $nf.="$_/F ";
10156: }
10157:
10158: #-------------------------------------
10159:
10160:
10161: $_=$uword;
10162: if ((s/ρτα$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10163: {
10164: $nf.="$_/F ";
10165: }
10166:
10167: #-------------------------------------
10168:
10169:
10170: $_=$uword;
10171: if ((s/ατα$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10172: {
10173: $nf.="$_/F ";
10174: }
10175:
10176: #-------------------------------------
10177:
10178:
10179: $_=$uword;
10180: if ((s/ρτ$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10181: {
10182: $nf.="$_/F ";
10183: }
10184:
10185: #-------------------------------------
10186:
10187:
10188: $_=$uword;
10189: if ((s/ατ$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10190: {
10191: $nf.="$_/F ";
10192: }
10193:
10194: #-------------------------------------
10195:
10196:
10197: $_=$uword;
10198: if ((s/ρταν$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10199: {
10200: $nf.="$_/F ";
10201: }
10202:
10203: #-------------------------------------
10204:
10205:
10206: $_=$uword;
10207: if ((s/αταν$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10208: {
10209: $nf.="$_/F ";
10210: }
10211:
10212: #-------------------------------------
10213:
10214:
10215: $_=$uword;
10216: if ((s/ρτανι$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10217: {
10218: $nf.="$_/F ";
10219: }
10220:
10221: #-------------------------------------
10222:
10223:
10224: $_=$uword;
10225: if ((s/ατανι$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10226: {
10227: $nf.="$_/F ";
10228: }
10229:
10230: #-------------------------------------
10231:
10232:
10233: $_=$uword;
10234: if ((s/ρταθ$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10235: {
10236: $nf.="$_/F ";
10237: }
10238:
10239: #-------------------------------------
10240:
10241:
10242: $_=$uword;
10243: if ((s/αταθ$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
10244: {
10245: $nf.="$_/F ";
10246: }
10247:
10248: #-------------------------------------
10249:
10250:
10251: $_=$uword;
10252: if ((s/ψεηο$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10253: {
10254: $nf.="$_/O ";
10255: }
10256:
10257: #-------------------------------------
10258:
10259:
10260: $_=$uword;
10261: if ((s/ψενυ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10262: {
10263: $nf.="$_/O ";
10264: }
10265:
10266: #-------------------------------------
10267:
10268:
10269: $_=$uword;
10270: if ((s/ψιν$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10271: {
10272: $nf.="$_/O ";
10273: }
10274:
10275: #-------------------------------------
10276:
10277:
10278: $_=$uword;
10279: if ((s/ψεν$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10280: {
10281: $nf.="$_/O ";
10282: }
10283:
10284: #-------------------------------------
10285:
10286:
10287: $_=$uword;
10288: if ((s/ψρ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10289: {
10290: $nf.="$_/O ";
10291: }
10292:
10293: #-------------------------------------
10294:
10295:
10296: $_=$uword;
10297: if ((s/ψεκ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10298: {
10299: $nf.="$_/O ";
10300: }
10301:
10302: #-------------------------------------
10303:
10304:
10305: $_=$uword;
10306: if ((s/ψΰ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10307: {
10308: $nf.="$_/O ";
10309: }
10310:
10311: #-------------------------------------
10312:
10313:
10314: $_=$uword;
10315: if ((s/ψε$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10316: {
10317: $nf.="$_/O ";
10318: }
10319:
10320: #-------------------------------------
10321:
10322:
10323: $_=$uword;
10324: if ((s/ψι$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10325: {
10326: $nf.="$_/O ";
10327: }
10328:
10329: #-------------------------------------
10330:
10331:
10332: $_=$uword;
10333: if ((s/ψιθ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10334: {
10335: $nf.="$_/O ";
10336: }
10337:
10338: #-------------------------------------
10339:
10340:
10341: $_=$uword;
10342: if ((s/ψινι$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10343: {
10344: $nf.="$_/O ";
10345: }
10346:
10347: #-------------------------------------
10348:
10349:
10350: $_=$uword;
10351: if ((s/ξρ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10352: {
10353: $nf.="$_/O ";
10354: }
10355:
10356: #-------------------------------------
10357:
10358:
10359: $_=$uword;
10360: if ((s/ξΰ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10361: {
10362: $nf.="$_/O ";
10363: }
10364:
10365: #-------------------------------------
10366:
10367:
10368: $_=$uword;
10369: if ((s/ξεν$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10370: {
10371: $nf.="$_/O ";
10372: }
10373:
10374: #-------------------------------------
10375:
10376:
10377: $_=$uword;
10378: if ((s/ξε$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10379: {
10380: $nf.="$_/O ";
10381: }
10382:
10383: #-------------------------------------
10384:
10385:
10386: $_=$uword;
10387: if ((s/ξι$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10388: {
10389: $nf.="$_/O ";
10390: }
10391:
10392: #-------------------------------------
10393:
10394:
10395: $_=$uword;
10396: if ((s/ξεκ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10397: {
10398: $nf.="$_/O ";
10399: }
10400:
10401: #-------------------------------------
10402:
10403:
10404: $_=$uword;
10405: if ((s/ξρν$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10406: {
10407: $nf.="$_/O ";
10408: }
10409:
10410: #-------------------------------------
10411:
10412:
10413: $_=$uword;
10414: if ((s/ξρνι$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10415: {
10416: $nf.="$_/O ";
10417: }
10418:
10419: #-------------------------------------
10420:
10421:
10422: $_=$uword;
10423: if ((s/ξρθ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10424: {
10425: $nf.="$_/O ";
10426: }
10427:
10428: #-------------------------------------
10429:
10430:
10431: $_=$uword;
10432: if ((s/λα$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10433: {
10434: $nf.="$_/O ";
10435: }
10436:
10437: #-------------------------------------
10438:
10439:
10440: $_=$uword;
10441: if ((s/λυ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10442: {
10443: $nf.="$_/O ";
10444: }
10445:
10446: #-------------------------------------
10447:
10448:
10449: $_=$uword;
10450: if ((s/λον$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10451: {
10452: $nf.="$_/O ";
10453: }
10454:
10455: #-------------------------------------
10456:
10457:
10458: $_=$uword;
10459: if ((s/λε$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10460: {
10461: $nf.="$_/O ";
10462: }
10463:
10464: #-------------------------------------
10465:
10466:
10467: $_=$uword;
10468: if ((s/λι$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10469: {
10470: $nf.="$_/O ";
10471: }
10472:
10473: #-------------------------------------
10474:
10475:
10476: $_=$uword;
10477: if ((s/λοχ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10478: {
10479: $nf.="$_/O ";
10480: }
10481:
10482: #-------------------------------------
10483:
10484:
10485: $_=$uword;
10486: if ((s/λαν$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10487: {
10488: $nf.="$_/O ";
10489: }
10490:
10491: #-------------------------------------
10492:
10493:
10494: $_=$uword;
10495: if ((s/λανι$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10496: {
10497: $nf.="$_/O ";
10498: }
10499:
10500: #-------------------------------------
10501:
10502:
10503: $_=$uword;
10504: if ((s/λαθ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10505: {
10506: $nf.="$_/O ";
10507: }
10508:
10509: #-------------------------------------
10510:
10511:
10512: $_=$uword;
10513: if ((s/τρ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10514: {
10515: $nf.="$_/O ";
10516: }
10517:
10518: #-------------------------------------
10519:
10520:
10521: $_=$uword;
10522: if ((s/τΰ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10523: {
10524: $nf.="$_/O ";
10525: }
10526:
10527: #-------------------------------------
10528:
10529:
10530: $_=$uword;
10531: if ((s/τεν$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10532: {
10533: $nf.="$_/O ";
10534: }
10535:
10536: #-------------------------------------
10537:
10538:
10539: $_=$uword;
10540: if ((s/τε$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10541: {
10542: $nf.="$_/O ";
10543: }
10544:
10545: #-------------------------------------
10546:
10547:
10548: $_=$uword;
10549: if ((s/τι$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10550: {
10551: $nf.="$_/O ";
10552: }
10553:
10554: #-------------------------------------
10555:
10556:
10557: $_=$uword;
10558: if ((s/τεκ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10559: {
10560: $nf.="$_/O ";
10561: }
10562:
10563: #-------------------------------------
10564:
10565:
10566: $_=$uword;
10567: if ((s/τρν$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10568: {
10569: $nf.="$_/O ";
10570: }
10571:
10572: #-------------------------------------
10573:
10574:
10575: $_=$uword;
10576: if ((s/τρνι$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10577: {
10578: $nf.="$_/O ";
10579: }
10580:
10581: #-------------------------------------
10582:
10583:
10584: $_=$uword;
10585: if ((s/τρθ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10586: {
10587: $nf.="$_/O ";
10588: }
10589:
10590: #-------------------------------------
10591:
10592:
10593: $_=$uword;
10594: if ((s/γα$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10595: {
10596: $nf.="$_/O ";
10597: }
10598:
10599: #-------------------------------------
10600:
10601:
10602: $_=$uword;
10603: if ((s/κγα$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10604: {
10605: $nf.="$_/O ";
10606: }
10607:
10608: #-------------------------------------
10609:
10610:
10611: $_=$uword;
10612: if ((s/ψγα$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10613: {
10614: $nf.="$_/O ";
10615: }
10616:
10617: #-------------------------------------
10618:
10619:
10620: $_=$uword;
10621: if ((s/γυ$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10622: {
10623: $nf.="$_/O ";
10624: }
10625:
10626: #-------------------------------------
10627:
10628:
10629: $_=$uword;
10630: if ((s/κγυ$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10631: {
10632: $nf.="$_/O ";
10633: }
10634:
10635: #-------------------------------------
10636:
10637:
10638: $_=$uword;
10639: if ((s/ψγυ$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10640: {
10641: $nf.="$_/O ";
10642: }
10643:
10644: #-------------------------------------
10645:
10646:
10647: $_=$uword;
10648: if ((s/κγεν$/εγ/) && (m/[αει]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10649: {
10650: $nf.="$_/O ";
10651: }
10652:
10653: #-------------------------------------
10654:
10655:
10656: $_=$uword;
10657: if ((s/γε$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10658: {
10659: $nf.="$_/O ";
10660: }
10661:
10662: #-------------------------------------
10663:
10664:
10665: $_=$uword;
10666: if ((s/κγε$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10667: {
10668: $nf.="$_/O ";
10669: }
10670:
10671: #-------------------------------------
10672:
10673:
10674: $_=$uword;
10675: if ((s/ψγε$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10676: {
10677: $nf.="$_/O ";
10678: }
10679:
10680: #-------------------------------------
10681:
10682:
10683: $_=$uword;
10684: if ((s/γω$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10685: {
10686: $nf.="$_/O ";
10687: }
10688:
10689: #-------------------------------------
10690:
10691:
10692: $_=$uword;
10693: if ((s/κγω$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10694: {
10695: $nf.="$_/O ";
10696: }
10697:
10698: #-------------------------------------
10699:
10700:
10701: $_=$uword;
10702: if ((s/ψγω$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10703: {
10704: $nf.="$_/O ";
10705: }
10706:
10707: #-------------------------------------
10708:
10709:
10710: $_=$uword;
10711: if ((s/εχ$//) && (m/[αξςρ]γ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10712: {
10713: $nf.="$_/O ";
10714: }
10715:
10716: #-------------------------------------
10717:
10718:
10719: $_=$uword;
10720: if ((s/κγεχ$/εγ/) && (m/[αει]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10721: {
10722: $nf.="$_/O ";
10723: }
10724:
10725: #-------------------------------------
10726:
10727:
10728: $_=$uword;
10729: if ((s/γαν$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10730: {
10731: $nf.="$_/O ";
10732: }
10733:
10734: #-------------------------------------
10735:
10736:
10737: $_=$uword;
10738: if ((s/κγαν$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10739: {
10740: $nf.="$_/O ";
10741: }
10742:
10743: #-------------------------------------
10744:
10745:
10746: $_=$uword;
10747: if ((s/ψγαν$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10748: {
10749: $nf.="$_/O ";
10750: }
10751:
10752: #-------------------------------------
10753:
10754:
10755: $_=$uword;
10756: if ((s/γανι$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10757: {
10758: $nf.="$_/O ";
10759: }
10760:
10761: #-------------------------------------
10762:
10763:
10764: $_=$uword;
10765: if ((s/κγανι$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10766: {
10767: $nf.="$_/O ";
10768: }
10769:
10770: #-------------------------------------
10771:
10772:
10773: $_=$uword;
10774: if ((s/ψγανι$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10775: {
10776: $nf.="$_/O ";
10777: }
10778:
10779: #-------------------------------------
10780:
10781:
10782: $_=$uword;
10783: if ((s/γαθ$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10784: {
10785: $nf.="$_/O ";
10786: }
10787:
10788: #-------------------------------------
10789:
10790:
10791: $_=$uword;
10792: if ((s/κγαθ$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10793: {
10794: $nf.="$_/O ";
10795: }
10796:
10797: #-------------------------------------
10798:
10799:
10800: $_=$uword;
10801: if ((s/ψγαθ$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10802: {
10803: $nf.="$_/O ";
10804: }
10805:
10806: #-------------------------------------
10807:
10808:
10809: $_=$uword;
10810: if ((s/λα$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10811: {
10812: $nf.="$_/O ";
10813: }
10814:
10815: #-------------------------------------
10816:
10817:
10818: $_=$uword;
10819: if ((s/ψλα$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10820: {
10821: $nf.="$_/O ";
10822: }
10823:
10824: #-------------------------------------
10825:
10826:
10827: $_=$uword;
10828: if ((s/λυ$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10829: {
10830: $nf.="$_/O ";
10831: }
10832:
10833: #-------------------------------------
10834:
10835:
10836: $_=$uword;
10837: if ((s/ψλυ$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10838: {
10839: $nf.="$_/O ";
10840: }
10841:
10842: #-------------------------------------
10843:
10844:
10845: $_=$uword;
10846: if ((s/λον$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10847: {
10848: $nf.="$_/O ";
10849: }
10850:
10851: #-------------------------------------
10852:
10853:
10854: $_=$uword;
10855: if ((s/ψλον$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10856: {
10857: $nf.="$_/O ";
10858: }
10859:
10860: #-------------------------------------
10861:
10862:
10863: $_=$uword;
10864: if ((s/λε$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10865: {
10866: $nf.="$_/O ";
10867: }
10868:
10869: #-------------------------------------
10870:
10871:
10872: $_=$uword;
10873: if ((s/ψλε$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10874: {
10875: $nf.="$_/O ";
10876: }
10877:
10878: #-------------------------------------
10879:
10880:
10881: $_=$uword;
10882: if ((s/λι$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10883: {
10884: $nf.="$_/O ";
10885: }
10886:
10887: #-------------------------------------
10888:
10889:
10890: $_=$uword;
10891: if ((s/ψλι$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10892: {
10893: $nf.="$_/O ";
10894: }
10895:
10896: #-------------------------------------
10897:
10898:
10899: $_=$uword;
10900: if ((s/λοχ$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10901: {
10902: $nf.="$_/O ";
10903: }
10904:
10905: #-------------------------------------
10906:
10907:
10908: $_=$uword;
10909: if ((s/ψλοχ$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10910: {
10911: $nf.="$_/O ";
10912: }
10913:
10914: #-------------------------------------
10915:
10916:
10917: $_=$uword;
10918: if ((s/λαν$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10919: {
10920: $nf.="$_/O ";
10921: }
10922:
10923: #-------------------------------------
10924:
10925:
10926: $_=$uword;
10927: if ((s/ψλαν$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10928: {
10929: $nf.="$_/O ";
10930: }
10931:
10932: #-------------------------------------
10933:
10934:
10935: $_=$uword;
10936: if ((s/λανι$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10937: {
10938: $nf.="$_/O ";
10939: }
10940:
10941: #-------------------------------------
10942:
10943:
10944: $_=$uword;
10945: if ((s/ψλανι$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10946: {
10947: $nf.="$_/O ";
10948: }
10949:
10950: #-------------------------------------
10951:
10952:
10953: $_=$uword;
10954: if ((s/λαθ$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10955: {
10956: $nf.="$_/O ";
10957: }
10958:
10959: #-------------------------------------
10960:
10961:
10962: $_=$uword;
10963: if ((s/ψλαθ$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10964: {
10965: $nf.="$_/O ";
10966: }
10967:
10968: #-------------------------------------
10969:
10970:
10971: $_=$uword;
10972: if ((s/μα$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10973: {
10974: $nf.="$_/O ";
10975: }
10976:
10977: #-------------------------------------
10978:
10979:
10980: $_=$uword;
10981: if ((s/μυ$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10982: {
10983: $nf.="$_/O ";
10984: }
10985:
10986: #-------------------------------------
10987:
10988:
10989: $_=$uword;
10990: if ((s/μον$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
10991: {
10992: $nf.="$_/O ";
10993: }
10994:
10995: #-------------------------------------
10996:
10997:
10998: $_=$uword;
10999: if ((s/με$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11000: {
11001: $nf.="$_/O ";
11002: }
11003:
11004: #-------------------------------------
11005:
11006:
11007: $_=$uword;
11008: if ((s/μω$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11009: {
11010: $nf.="$_/O ";
11011: }
11012:
11013: #-------------------------------------
11014:
11015:
11016: $_=$uword;
11017: if ((s/μοχ$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11018: {
11019: $nf.="$_/O ";
11020: }
11021:
11022: #-------------------------------------
11023:
11024:
11025: $_=$uword;
11026: if ((s/μαν$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11027: {
11028: $nf.="$_/O ";
11029: }
11030:
11031: #-------------------------------------
11032:
11033:
11034: $_=$uword;
11035: if ((s/μανι$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11036: {
11037: $nf.="$_/O ";
11038: }
11039:
11040: #-------------------------------------
11041:
11042:
11043: $_=$uword;
11044: if ((s/μαθ$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11045: {
11046: $nf.="$_/O ";
11047: }
11048:
11049: #-------------------------------------
11050:
11051:
11052: $_=$uword;
11053: if ((s/ρν$/ι/) && (m/[αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
11054: {
11055: $nf.="$_/O ";
11056: }
11057:
11058: #-------------------------------------
11059:
11060:
11061: $_=$uword;
11062: if ((s/αν$/ι/) && (m/[^αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
11063: {
11064: $nf.="$_/O ";
11065: }
11066:
11067: #-------------------------------------
11068:
11069:
11070: $_=$uword;
11071: if ((s/ρνι$/ι/) && (m/[αβειμξοςσ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
11072: {
11073: $nf.="$_/O ";
11074: }
11075:
11076: #-------------------------------------
11077:
11078:
11079: $_=$uword;
11080: if ((s/ρνι$/ι/) && (m/[αςσ]τι$/) && ($a=$$words{$_}) && ($a=~m/O/))
11081: {
11082: $nf.="$_/O ";
11083: }
11084:
11085: #-------------------------------------
11086:
11087:
11088: $_=$uword;
11089: if ((s/ανι$/ι/) && (m/[^αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
11090: {
11091: $nf.="$_/O ";
11092: }
11093:
11094: #-------------------------------------
11095:
11096:
11097: $_=$uword;
11098: if ((s/ρθ$/ι/) && (m/[αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
11099: {
11100: $nf.="$_/O ";
11101: }
11102:
11103: #-------------------------------------
11104:
11105:
11106: $_=$uword;
11107: if ((s/αθ$/ι/) && (m/[^αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
11108: {
11109: $nf.="$_/O ";
11110: }
11111:
11112: #-------------------------------------
11113:
11114:
11115: $_=$uword;
11116: if ((s/αν$/ω/) && (m/ω$/) && ($a=$$words{$_}) && ($a=~m/O/))
11117: {
11118: $nf.="$_/O ";
11119: }
11120:
11121: #-------------------------------------
11122:
11123:
11124: $_=$uword;
11125: if ((s/ανι$/ω/) && (m/ω$/) && ($a=$$words{$_}) && ($a=~m/O/))
11126: {
11127: $nf.="$_/O ";
11128: }
11129:
11130: #-------------------------------------
11131:
11132:
11133: $_=$uword;
11134: if ((s/αθ$/ω/) && (m/ω$/) && ($a=$$words{$_}) && ($a=~m/O/))
11135: {
11136: $nf.="$_/O ";
11137: }
11138:
11139: #-------------------------------------
11140:
11141:
11142: $_=$uword;
11143: if ((s/ν$//) && (m/[αρ]$/) && ($a=$$words{$_}) && ($a=~m/O/))
11144: {
11145: $nf.="$_/O ";
11146: }
11147:
11148: #-------------------------------------
11149:
11150:
11151: $_=$uword;
11152: if ((s/νι$//) && (m/[αρ]$/) && ($a=$$words{$_}) && ($a=~m/O/))
11153: {
11154: $nf.="$_/O ";
11155: }
11156:
11157: #-------------------------------------
11158:
11159:
11160: $_=$uword;
11161: if ((s/θ$//) && (m/[αρ]$/) && ($a=$$words{$_}) && ($a=~m/O/))
11162: {
11163: $nf.="$_/O ";
11164: }
11165:
11166: #-------------------------------------
11167:
11168:
11169: $_=$uword;
11170: if ((s/α$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11171: {
11172: $nf.="$_/O ";
11173: }
11174:
11175: #-------------------------------------
11176:
11177:
11178: $_=$uword;
11179: if ((s/υ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11180: {
11181: $nf.="$_/O ";
11182: }
11183:
11184: #-------------------------------------
11185:
11186:
11187: $_=$uword;
11188: if ((s/ον$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11189: {
11190: $nf.="$_/O ";
11191: }
11192:
11193: #-------------------------------------
11194:
11195:
11196: $_=$uword;
11197: if ((s/ε$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11198: {
11199: $nf.="$_/O ";
11200: }
11201:
11202: #-------------------------------------
11203:
11204:
11205: $_=$uword;
11206: if ((s/ε$/ιξ/) && (m/ξιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11207: {
11208: $nf.="$_/O ";
11209: }
11210:
11211: #-------------------------------------
11212:
11213:
11214: $_=$uword;
11215: if ((s/ω$/ιξ/) && (m/ςιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11216: {
11217: $nf.="$_/O ";
11218: }
11219:
11220: #-------------------------------------
11221:
11222:
11223: $_=$uword;
11224: if ((s/$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11225: {
11226: $nf.="$_/O ";
11227: }
11228:
11229: #-------------------------------------
11230:
11231:
11232: $_=$uword;
11233: if ((s/αν$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11234: {
11235: $nf.="$_/O ";
11236: }
11237:
11238: #-------------------------------------
11239:
11240:
11241: $_=$uword;
11242: if ((s/ανι$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11243: {
11244: $nf.="$_/O ";
11245: }
11246:
11247: #-------------------------------------
11248:
11249:
11250: $_=$uword;
11251: if ((s/αθ$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
11252: {
11253: $nf.="$_/O ";
11254: }
11255:
11256: #-------------------------------------
11257:
11258:
11259: $_=$uword;
11260: if ((s/α$//) && (m/[^εκλοψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
11261: {
11262: $nf.="$_/G ";
11263: }
11264:
11265: #-------------------------------------
11266:
11267:
11268: $_=$uword;
11269: if ((s/υ$//) && (m/[^εκλοψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
11270: {
11271: $nf.="$_/G ";
11272: }
11273:
11274: #-------------------------------------
11275:
11276:
11277: $_=$uword;
11278: if ((s/ων$//) && (m/[^εφκλογώϋύψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
11279: {
11280: $nf.="$_/G ";
11281: }
11282:
11283: #-------------------------------------
11284:
11285:
11286: $_=$uword;
11287: if ((s/ε$//) && (m/[^εκλοψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
11288: {
11289: $nf.="$_/G ";
11290: }
11291:
11292: #-------------------------------------
11293:
11294:
11295: $_=$uword;
11296: if ((s/οηο$/ικ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11297: {
11298: $nf.="$_/G ";
11299: }
11300:
11301: #-------------------------------------
11302:
11303:
11304: $_=$uword;
11305: if ((s/ονυ$/ικ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11306: {
11307: $nf.="$_/G ";
11308: }
11309:
11310: #-------------------------------------
11311:
11312:
11313: $_=$uword;
11314: if ((s/ν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11315: {
11316: $nf.="$_/G ";
11317: }
11318:
11319: #-------------------------------------
11320:
11321:
11322: $_=$uword;
11323: if ((s/ν$/κ/) && (m/[^ι]κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11324: {
11325: $nf.="$_/G ";
11326: }
11327:
11328: #-------------------------------------
11329:
11330:
11331: $_=$uword;
11332: if ((s/ον$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11333: {
11334: $nf.="$_/G ";
11335: }
11336:
11337: #-------------------------------------
11338:
11339:
11340: $_=$uword;
11341: if ((s/λα$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11342: {
11343: $nf.="$_/G ";
11344: }
11345:
11346: #-------------------------------------
11347:
11348:
11349: $_=$uword;
11350: if ((s/λυ$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11351: {
11352: $nf.="$_/G ";
11353: }
11354:
11355: #-------------------------------------
11356:
11357:
11358: $_=$uword;
11359: if ((s/λον$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11360: {
11361: $nf.="$_/G ";
11362: }
11363:
11364: #-------------------------------------
11365:
11366:
11367: $_=$uword;
11368: if ((s/λε$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11369: {
11370: $nf.="$_/G ";
11371: }
11372:
11373: #-------------------------------------
11374:
11375:
11376: $_=$uword;
11377: if ((s/λα$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11378: {
11379: $nf.="$_/G ";
11380: }
11381:
11382: #-------------------------------------
11383:
11384:
11385: $_=$uword;
11386: if ((s/λυ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11387: {
11388: $nf.="$_/G ";
11389: }
11390:
11391: #-------------------------------------
11392:
11393:
11394: $_=$uword;
11395: if ((s/λον$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11396: {
11397: $nf.="$_/G ";
11398: }
11399:
11400: #-------------------------------------
11401:
11402:
11403: $_=$uword;
11404: if ((s/λε$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11405: {
11406: $nf.="$_/G ";
11407: }
11408:
11409: #-------------------------------------
11410:
11411:
11412: $_=$uword;
11413: if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11414: {
11415: $nf.="$_/G ";
11416: }
11417:
11418: #-------------------------------------
11419:
11420:
11421: $_=$uword;
11422: if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11423: {
11424: $nf.="$_/G ";
11425: }
11426:
11427: #-------------------------------------
11428:
11429:
11430: $_=$uword;
11431: if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11432: {
11433: $nf.="$_/G ";
11434: }
11435:
11436: #-------------------------------------
11437:
11438:
11439: $_=$uword;
11440: if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11441: {
11442: $nf.="$_/G ";
11443: }
11444:
11445: #-------------------------------------
11446:
11447:
11448: $_=$uword;
11449: if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11450: {
11451: $nf.="$_/G ";
11452: }
11453:
11454: #-------------------------------------
11455:
11456:
11457: $_=$uword;
11458: if ((s/εκ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11459: {
11460: $nf.="$_/G ";
11461: }
11462:
11463: #-------------------------------------
11464:
11465:
11466: $_=$uword;
11467: if ((s/ρν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11468: {
11469: $nf.="$_/G ";
11470: }
11471:
11472: #-------------------------------------
11473:
11474:
11475: $_=$uword;
11476: if ((s/ρνι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11477: {
11478: $nf.="$_/G ";
11479: }
11480:
11481: #-------------------------------------
11482:
11483:
11484: $_=$uword;
11485: if ((s/ρθ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11486: {
11487: $nf.="$_/G ";
11488: }
11489:
11490: #-------------------------------------
11491:
11492:
11493: $_=$uword;
11494: if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11495: {
11496: $nf.="$_/G ";
11497: }
11498:
11499: #-------------------------------------
11500:
11501:
11502: $_=$uword;
11503: if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11504: {
11505: $nf.="$_/G ";
11506: }
11507:
11508: #-------------------------------------
11509:
11510:
11511: $_=$uword;
11512: if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11513: {
11514: $nf.="$_/G ";
11515: }
11516:
11517: #-------------------------------------
11518:
11519:
11520: $_=$uword;
11521: if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11522: {
11523: $nf.="$_/G ";
11524: }
11525:
11526: #-------------------------------------
11527:
11528:
11529: $_=$uword;
11530: if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11531: {
11532: $nf.="$_/G ";
11533: }
11534:
11535: #-------------------------------------
11536:
11537:
11538: $_=$uword;
11539: if ((s/κ$/ρ/) && (m/[ειυ]ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11540: {
11541: $nf.="$_/G ";
11542: }
11543:
11544: #-------------------------------------
11545:
11546:
11547: $_=$uword;
11548: if ((s/εξ$/ξρ/) && (m/[^αεϊικουωψ]ξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11549: {
11550: $nf.="$_/G ";
11551: }
11552:
11553: #-------------------------------------
11554:
11555:
11556: $_=$uword;
11557: if ((s/ψ$/ρ/) && (m/[αειουω]ξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11558: {
11559: $nf.="$_/G ";
11560: }
11561:
11562: #-------------------------------------
11563:
11564:
11565: $_=$uword;
11566: if ((s/εξ$/κξρ/) && (m/κξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11567: {
11568: $nf.="$_/G ";
11569: }
11570:
11571: #-------------------------------------
11572:
11573:
11574: $_=$uword;
11575: if ((s/εξ$/ψξρ/) && (m/ψξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11576: {
11577: $nf.="$_/G ";
11578: }
11579:
11580: #-------------------------------------
11581:
11582:
11583: $_=$uword;
11584: if ((s/ν$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11585: {
11586: $nf.="$_/G ";
11587: }
11588:
11589: #-------------------------------------
11590:
11591:
11592: $_=$uword;
11593: if ((s/νι$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11594: {
11595: $nf.="$_/G ";
11596: }
11597:
11598: #-------------------------------------
11599:
11600:
11601: $_=$uword;
11602: if ((s/θ$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
11603: {
11604: $nf.="$_/G ";
11605: }
11606: $_=$uword;
11607: if ($$words{$_})
11608: {
11609: $nf.="$_/! ";
11610: }
11611: return $nf;
11612: } 1
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>