Maltese: all functions implemented (though not necessarily correct)

Oh, and glad Valborg!

src/maltese/RelativeMlt.gf

@@ -6,7 +6,35 @@
 
 concrete RelativeMlt of Relative = CatMlt ** open ResMlt in {
 
--- RCl
--- RP
+  flags optimize=all_subs ;
+
+  lin
+    -- Cl -> RCl
+    RelCl cl = {
+      s = \\t,a,p,_ => "li" ++ cl.s ! t ! a ! p ! ODir ;
+      } ;
+
+    -- RP -> VP -> RCl
+    RelVP rp vp = {
+      s = \\t,ant,p,agr =>
+        let
+          cl = mkClause rp.s agr vp
+        in
+        cl.s ! t ! ant ! p ! ODir ;
+      } ;
+
+    -- RP -> ClSlash -> RCl
+    RelSlash rp slash = {
+      s = \\t,a,p,agr =>
+        rp.s ++ slash.s ! t ! a ! p ! ODir ;
+      } ;
+
+    -- Prep -> NP -> RP -> RP
+    FunRP prep np rp = {
+      s = np.s ! NPAcc ++ (prep.s ! bool2definiteness np.isDefn) ++ rp.s ;
+      } ;
+
+    -- RP
+    IdRP = { s = "li" } ;
 
 }