(Kor) WIP: First draft of Korean RG.

Not at all correct, just a minimal implementation that compiles.

src/korean/RelativeKor.gf

@@ -0,0 +1,22 @@
+concrete RelativeKor of Relative = CatKor ** open
+  ResKor, Prelude, (NS=NounKor), (SS=StructuralKor) in {
+
+{-
+lin
+  --  : Cl -> RCl ;            -- such that John loves her
+  -- RelCl cl = ;
+
+  -- : RP -> VP -> RCl ;
+  RelVP rp vp =
+
+  -- : RP -> ClSlash -> RCl ; -- whom John loves
+  RelSlash rp cls =
+
+  -- : RP ;
+  IdRP = {s = ""} ;
+
+  -- : Prep -> NP -> RP -> RP ;  -- the mother of whom
+  --FunRP prep np rp = {} ;
+-}
+
+}