## POBox fugodic change ¤ó'n' -> ¤ó'nn'
## Time-stamp: <Nov 25 2002>

while(<>){
#    my $orig = $_;

    #konna -> konnna
    if(/nn[aiueo]/){
        s/nn([aiueo])/nnn$1/g;
    }

    #an'i -> anni  (konna->konnna yori atoni oku)
    if(/n\'/){
        s/n\'/nn/g;
    }

    #ten -> tenn
    if(/[^n]n\t/){
        s/n\t/nn\t/;
    }

    #ronsi -> ronnsi
    if(/[aiouo]n[^naiueo]/){
        s/([aiouo])n([^naiueo])/$1nn$2/g;
    }

    #output
    print $_;    #put a new modified entry
#    if($orig ne $_){
#        print $orig; #leave original entry
#    }
}