--- kanadic2romadic.org	Sat Oct  6 18:29:32 2001
+++ kanadic2romadic	Sat Oct  6 18:31:00 2001
@@ -11,9 +11,20 @@
 	chop;
 	@a = split(/\t/);
 	if($a[0] =~ /^[\x80-\xff]/){
-		$s = &kana2roma($a[0]);
+            if($a[0] =~ /^(.+)([a-z])$/){
+                $hira = $1;
+                $okuri = $2;
+            } else {
+                $hira = $a[0];
+                $okuri = '';
+            }
+		$s = &kana2roma($hira);
 		@s = split(/,/,$s);
-		$a[0] = $s[0];
+		$a[0] = $s[0] . $okuri;
+            if($okuri =~ /[aiueo]/){
+                $or = &roma2kana($okuri);
+                $a[1] .= $or;
+            }
 	}
 	print join("\t",@a),"\n";
 }