lab1/grammar/korean/MicroResKor.gf

@@ -1,4 +1,4 @@
-resource MicroResKor = open Prelude in {
+resource MicroResKor = open Prelude, Hangul in {
   param
     VForm = Lemma | VPresent | VPast ;
 
@@ -35,4 +35,10 @@ resource MicroResKor = open Prelude in {
 	  VPast => stem + "았어요"
 	  }
       } ;
+
+    blah : Str -> Str
+      = \s -> case s of {
+	_ + "ᅡ" => "아-final" ;
+	_ => "not 아-final"
+      } ;
 }