--- common.pm	2002/06/24 15:36:40	1.6
+++ common.pm	2002/06/24 15:53:56	1.7
@@ -54,6 +54,10 @@
 					$w =~ s/[��]/ae/g;
 					$w =~ s/[��]/ue/g;
 					$out .= "W $w $nr\n";
+				# Irish Last names
+				} elsif (($nr == 1 || $nr == 2 || $nr == 3 || $nr == 6 || $nr == 7 || $nr == 8) && $w =~ m/^Ma?c([A-Z].+)/) {
+					$out .= "W Mc$1 $nr\n";
+					$out .= "W Mac$1 $nr\n";
 				} else {
 					$out .= "W $w $nr\n";
 				}