diff --git a/src/bulgarian/ParseBul.gf b/src/bulgarian/ParseBul.gf
deleted file mode 100644
index 99c9844bd..000000000
--- a/src/bulgarian/ParseBul.gf
+++ /dev/null
@@ -1,165 +0,0 @@
---# -path=alltenses:../english:../translator:../abstract
-concrete ParseBul of ParseEngAbs = 
-  TenseX - [IAdv, CAdv],
-  CatBul,
-  NounBul - [PPartNP],
-  AdjectiveBul,
-  NumeralBul,
-  SymbolBul [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
-  ConjunctionBul,
-  VerbBul - [SlashV2V, PassV2, UseCopula, ComplVV],
-  AdverbBul,
-  PhraseBul,
-  SentenceBul,
-  QuestionBul,
-  RelativeBul,
-  IdiomBul [NP, VP, Tense, Cl, ProgrVP, ExistNP],
-  ExtraBul [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,
-            Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
-            VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
-            ComplSlashPartLast,
-            ClSlash, RCl, EmptyRelSlash],
-  DocumentationBul,
-  DictionaryBul ** 
-open ResBul, Prelude in {
-
-flags
-  literal=Symb ;
-  coding = utf8 ;
-
-lin
-  CompoundCN num noun cn = {
-    s = \\nf => num.s ! CFNeut Indef ++ (noun.rel ! nform2aform nf cn.g) ++ (cn.s ! (indefNForm nf)) ;
-    g = cn.g
-  } ;
-
-  GerundN v = {
-    s   = \\nform => v.s ! Imperf ! VNoun nform ;
-    rel = \\aform => v.s ! Imperf ! VPresPart aform ++
-                     case v.vtype of {
-                       VMedial c => reflClitics ! c;
-                       _         => []
-                     };
-    g = ANeut
-  } ;
-  
-  GerundAP v = {
-    s = \\aform => v.s ! Imperf ! VPresPart aform ++
-                   case v.vtype of {
-                     VMedial c => reflClitics ! c;
-                     _         => []
-                   };
-    adv = v.s ! Imperf ! VPresPart (ASg Neut Indef);
-    isPre = True
-  } ;
-
-  PastPartAP v = {
-    s = \\aform => v.s ! Perf ! VPassive aform ;
-    adv = v.s ! Perf ! VPassive (ASg Neut Indef);
-    isPre = True
-  } ;
-
-  PositAdVAdj a = {s = a.adv} ;
-  
-  that_RP = {
-    s = whichRP
-  } ;
-
-  UseQuantPN q pn = { s = table {
-                            RObj Dat => "на" ++ pn.s; 
-                            _        => pn.s
-                          } ;
-                      a = {gn = GSg pn.g; p = P3};
-                      p = q.p
-                    } ;
-
-  PastPartRS ant pol vp = {
-      s = \\agr => 
-             ant.s ++ pol.s ++
-             vp.ad.s ++
-             case pol.p of {Pos   => ""; Neg => "не"} ++
-             case ant.a of {Simul => ""; Anter => auxBe ! VPerfect (aform agr.gn Indef (RObj Acc))} ++
-             vp.s ! Perf ! VPassive (aform agr.gn Indef (RObj Acc)) ++
-             case vp.vtype of {
-               VMedial c => reflClitics ! c;
-               _         => []
-             } ++
-             vp.compl1 ! agr ++ vp.compl2 ! agr ;
-  } ;
-
-  PresPartRS ant pol vp = {
-      s = \\agr => 
-             ant.s ++ pol.s ++
-             vp.ad.s ++
-             case pol.p of {Pos   => ""; Neg => "не"} ++
-             case ant.a of {Simul => ""; Anter => auxBe ! VPerfect (aform agr.gn Indef (RObj Acc))} ++
-             vp.s ! Imperf ! VPresPart (aform agr.gn Indef (RObj Acc)) ++
-             case vp.vtype of {
-               VMedial c => reflClitics ! c;
-               _         => []
-             } ++
-             vp.compl ! agr ;
-  } ;
-
-  SlashV2V vv ant p vp =
-      insertSlashObj2 (\\agr => ant.s ++ p.s ++ vv.c3.s ++
-                                daComplex ant.a (orPol p.p vp.p) vp ! Perf ! agr)
-                      Pos
-                      (slashV vv vv.c2) ;
-
-  ComplVV vv ant p vp =
-      insertObj (\\agr => ant.s ++ p.s ++
-                          case vv.typ of {
-                            VVInf    => daComplex ant.a p.p vp ! Perf ! agr;
-                            VVGerund => gerund vp ! Imperf ! agr
-                          }) vp.p
-                (predV vv) ;
-
-  PredVPosv np vp = {
-      s = \\t,a,p,o => 
-        let
-          subj = np.s ! (case vp.vtype of {
-                                        VNormal    => RSubj ;
-                                        VMedial  _ => RSubj ;
-                                        VPhrasal c => RObj c}) ;
-          verb  : Bool => Str
-                = \\q => vpTenses vp ! t ! a ! p ! np.a ! q ! Perf ;
-          compl = vp.compl ! np.a
-        in case o of {
-             Main  => compl ++ subj ++ verb ! False  ;
-             Inv   => verb ! False ++ compl ++ subj ;
-             Quest => compl ++ subj ++ verb ! True
-           }
-    } ;
-
-  CompS s = {s = \\_ => "че" ++ s.s; p = Pos} ;
-  CompQS qs = {s = \\_ => qs.s ! QIndir; p = Pos} ;
-  CompVP ant p vp = {s = let p' = case vp.p of {
-                                    Neg => Neg;
-                                    Pos => p.p
-                                  }
-                         in \\agr => ant.s ++ p.s ++
-                                     daComplex ant.a p' vp ! Perf ! agr;
-                     p = Pos
-                    } ;
-
-  VPSlashVS vs vp = 
-    let vp = insertObj (daComplex Simul Pos vp ! Perf) vp.p (predV vs)
-    in { s  = vp.s;
-         ad = vp.ad;
-         compl1 = \\_ => "";
-         compl2 = vp.compl;
-         vtype  = vp.vtype;
-         p      = vp.p;
-         c2     = {s=""; c=Acc}
-       } ;
-
-  ApposNP np1 np2 = {
-    s = \\role => np1.s ! role ++ comma ++ np2.s ! RSubj ;
-    a = np1.a ;
-    p = np1.p
-  } ;
-
-  UttAdV adv = adv;
-
-}
diff --git a/src/english/ParseEng.gf b/src/english/ParseEng.gf
deleted file mode 100644
index c97878145..000000000
--- a/src/english/ParseEng.gf
+++ /dev/null
@@ -1,175 +0,0 @@
---# -path=.:../abstract:../translator
-
-concrete ParseEng of ParseEngAbs = 
-  TenseX - [Pol, PNeg, PPos, SC],
-  CatEng,
-  NounEng - [PPartNP],
-  AdjectiveEng,
-  NumeralEng,
-  SymbolEng [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
-  ConjunctionEng,
-  VerbEng - [SlashV2V, PassV2, UseCopula, ComplVV, ComplVS],
-  AdverbEng,
-  PhraseEng,
-  SentenceEng - [UseCl], -- replaced by UseCl | ContractedUseCl
-  QuestionEng,
-  RelativeEng,
-  IdiomEng [NP, VP, Tense, Cl, ProgrVP, ExistNP, SelfAdvVP, SelfAdVVP, SelfNP],
-  ConstructionEng,
-  DocumentationEng,
-  ExtraEng [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash, PassAgentVPSlash,
-            Temp, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
-            VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
-            ComplSlashPartLast,
-            ClSlash, RCl, EmptyRelSlash, VS, V2S, ComplBareVS, SlashBareV2S],
-
-  DictionaryEng ** 
-open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {
-
-flags
-  literal=Symb ;
-
--- exceptional linearizations
-lin
-  UseCl t p cl = G.UseCl t p cl | E.ContractedUseCl t p cl ;
-
-lin
-  myself_NP = regNP "myself" singular ;
-  yourselfSg_NP = regNP "yourself" singular ;
-  himself_NP = regNP "himself" singular ;
-  herself_NP = regNP "herself" singular ;
-  itself_NP = regNP "itself" singular ;
-  ourselves_NP = regNP "ourselves" plural ;
-  yourselfPl_NP = regNP "yourself" plural ;
-  themselves_NP = regNP "themselves" plural ;
-
-  CompoundSgCN cn1 cn2 = {
-    s = \\n,c => cn1.s ! Sg ! Nom ++ cn2.s ! n ! c ;
-    g = cn2.g
-  } ;
-
-  CompoundPlCN cn1 cn2 = {
-    s = \\n,c => cn1.s ! Pl ! Nom ++ cn2.s ! n ! c ;
-    g = cn2.g
-  } ;
-
-  DashSgN n1 n2 = {
-    s = \\n,c => n1.s ! Sg ! Nom ++ "-" ++ n2.s ! n ! c ;
-    g = n2.g
-  } ;
-
-  DashPlN n1 n2 = {
-    s = \\n,c => n1.s ! Pl ! Nom ++ "-" ++ n2.s ! n ! c ;
-    g = n2.g
-  } ;
-
-  GerundN v = {
-    s = \\n,c => v.s ! VPresPart ;
-    g = Neutr
-  } ;
-  
-  GerundAP v = {
-    s = \\agr => v.s ! VPresPart ;
-    isPre = True
-  } ;
-
-  PastPartAP vp = { 
-    s = \\a => vp.ad ! a ++ vp.ptp ++ vp.p ++ vp.c2 ++ vp.s2 ! a ++ vp.ext ;
-    isPre = vp.isSimple                 -- depends on whether there are complements
-  } ;
-
-  OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ;
-
-  PositAdVAdj a = {s = a.s ! AAdv} ;
-
-  UseQuantPN q pn = {s = \\c => q.s ! False ! Sg ++ pn.s ! npcase2case c ; a = agrgP3 Sg pn.g} ;
-
-  SlashV2V v ant p vp = insertObjc (\\a => v.c3 ++ ant.s ++ p.s ++
-                                           infVP v.typ vp ant.a p.p a)
-                                   (predVc v) ;
-
-  SlashSlashV2V v ant p vp = insertObjc (\\a => v.c3 ++ ant.s ++ p.s ++
-                                           infVP v.typ vp ant.a p.p a)
-                                   (predVc v) ;
-
-  SlashVPIV2V v p vpi = insertObjc (\\a => p.s ++ 
-                                           v.c3 ++ 
-                                           vpi.s ! VVAux ! a)
-                                   (predVc v) ;
-  ComplVV v a p vp = insertObj (\\agr => a.s ++ p.s ++ 
-                                         infVP v.typ vp a.a p.p agr)
-                               (predVV v) ;
-  ComplVS vs s = G.ComplVS vs s | ComplBareVS vs s ;
-
-  PredVPosv np vp = {
-      s = \\t,a,b,o => 
-        let 
-          verb  = vp.s ! t ! a ! b ! o ! np.a ;
-          compl = vp.s2 ! np.a
-        in
-        case o of {
-          ODir _ => compl ++ frontComma ++ np.s ! npNom ++ verb.aux ++ vp.ad ! np.a ++ verb.fin ++ verb.adv ++ verb.inf ;
-          OQuest => verb.aux ++ compl ++ frontComma ++ np.s ! npNom ++ verb.adv ++ vp.ad ! np.a ++ verb.fin ++ verb.inf 
-          }
-    } ;
-    
-  PredVPovs np vp = {
-      s = \\t,a,b,o => 
-        let 
-          verb  = vp.s ! t ! a ! b ! o ! np.a ;
-          compl = vp.s2 ! np.a
-        in
-        case o of {
-          ODir _ => compl ++ frontComma ++ verb.aux ++ verb.adv ++ vp.ad ! np.a ++ verb.fin ++ verb.inf ++ np.s ! npNom ;
-          OQuest => verb.aux ++ compl ++ verb.adv ++ vp.ad ! np.a ++ verb.fin ++ verb.inf ++ np.s ! npNom
-          }
-    } ;
-
-  that_RP = {
-    s = \\_ => "that" ;
-    a = RNoAg
-    } ;
-
-  who_RP = {
-    s = \\_ => "who" ;
-    a = RNoAg
-    } ;
-
-  CompS s = {s = \\_ => "that" ++ s.s} ;
-  CompQS qs = {s = \\_ => qs.s ! QIndir} ;
-  CompVP ant p vp = {s = \\a => ant.s ++ p.s ++ 
-                                infVP VVInf vp ant.a p.p a} ;
-
-  VPSlashVS vs vp = 
-    insertObj (\\a => infVP VVInf vp Simul CPos a) (predV vs) **
-    {c2 = ""; missingAdv = False; gapInMiddle = False} ;
-
-  PastPartRS ant pol vps = {
-    s = \\agr => vps.ad ! agr ++ vps.ptp ++ vps.s2 ! agr ;
-    c = npNom
-    } ;
-
-  PresPartRS ant pol vp = {
-    s = \\agr => vp.ad ! agr ++ vp.prp ++ vp.p ++ vp.s2 ! agr;
-    c = npNom
-  } ;
-
-  ApposNP np1 np2 = {
-    s = \\c => np1.s ! c ++ frontComma ++ np2.s ! npNom ++ finalComma ;
-    a = np1.a
-  } ;
-  
-  NameCN pn cn = {
-    s = \\n,c => pn.s ! npcase2case npNom ++ cn.s ! n ! c ;
-    g = cn.g
-  } ;
-  
-  AdAdV = cc2 ;
-  
-  UttAdV adv = adv;
-
-lin
-  PPos = {s = [] ; p = CPos} ;
-  PNeg = {s = [] ; p = CNeg True} | {s = [] ; p = CNeg False} ;
-
-}
diff --git a/src/swedish/ParseSwe.gf b/src/swedish/ParseSwe.gf
deleted file mode 100644
index 79e8fe715..000000000
--- a/src/swedish/ParseSwe.gf
+++ /dev/null
@@ -1,126 +0,0 @@
---# -path=.:../english/:../scandinavian:alltenses:../abstract:../translator
-concrete ParseSwe of ParseEngAbs = 
-  TenseSwe,
-  NounSwe - [PPartNP],
-  AdjectiveSwe,
-  NumeralSwe,
-  SymbolSwe [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
-  ConjunctionSwe,
-  VerbSwe - [SlashV2V, PassV2, UseCopula, ComplVV],
-  AdverbSwe,
-  PhraseSwe,
-  SentenceSwe,
-  QuestionSwe,
-  RelativeSwe,
-  IdiomSwe [NP, VP, Tense, Cl, ProgrVP, ExistNP, SelfAdvVP, SelfAdVVP, SelfNP],
-  ConstructionSwe,
-  DocumentationSwe,
-  ExtraSwe [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash, PassAgentVPSlash,
-            Temp, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
-            VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
-            ClSlash, RCl, EmptyRelSlash],
-
-  DictionarySwe ** 
-open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, (E = ExtraSwe), Prelude in {
-
-flags
-  literal=Symb ;
-
-lin
-{-
-  myself_NP = regNP "myself" singular ;
-  yourselfSg_NP = regNP "yourself" singular ;
-  himself_NP = regNP "himself" singular ;
-  herself_NP = regNP "herself" singular ;
-  itself_NP = regNP "itself" singular ;
-  ourself_NP = regNP "ourself" plural ;
-  yourselfPl_NP = regNP "yourself" plural ;
-  themself_NP = regNP "themself" plural ;
-  themselves_NP = regNP "themselves" plural ;
--}
-
-  CompoundCN num noun cn = {
-      s = \\n,d,c => num.s ! cn.g ++ noun.co ++ BIND ++ cn.s ! n ! d ! c ; 
-      g = cn.g ;
-      isMod = False
-      } ;
-
-  DashCN noun1 noun2 = {
-      s = \\n,d,c => noun1.co ++ BIND ++ noun2.s ! n ! d ! c ; 
-      g = noun2.g ;
-      co = noun1.co ++ BIND ++ noun2.co ---- add s if not already there
-      } ;
-
-  GerundN v = {
-    s = \\n,d,c => v.s ! VI (VPtPres n d c) ;
-    g = Neutr ;
-    co = v.s ! VI (VPtPres Sg Indef Nom) ;
-  } ;
-  
-  GerundAP v = {
-    s = \\_ => v.s ! VI (VPtPres Sg Indef Nom) ;
-    isPre = True
-  } ;
-
-  PastPartAP v = {
-    s = \\afpos => v.s ! VI (VPtPret afpos Nom) ;
-    isPre = True
-  } ;
-
-
-  OrdCompar a = {
-      s = case a.isComp of {
-        True => "mera" ++ a.s ! AF (APosit (Weak Sg)) Nom ;
-        _    => a.s ! AF ACompar Nom
-        }  ; 
-      isDet = True
-      } ;
-
-  PositAdVAdj a = {s = a.s ! adverbForm} ;
-
-  UseQuantPN q pn = {
-      s = \\c => q.s ! Sg ! True ! False ! pn.g ++ pn.s ! caseNP c ; 
-      a = agrP3 pn.g Sg
-      } ;
-
-  SlashV2V v ant p vp = predV v ** {
-      n3 = \\a => v.c3.s ++ ant.s ++ p.s ++ infVPPlus vp a ant.a p.p ; 
-      c2 = v.c2
-      } ;
-
-  SlashVPIV2V v p vpi = predV v ** {
-      n3 = \\a => v.c3.s ++ p.s ++ negation ! p.p ++ vpi.s ! VPIInf ! a ; 
-      c2 = v.c2
-      } ;
-
-  ComplVV v ant pol vp = insertObjPost (\\a => v.c2.s ++ ant.s ++ pol.s ++ infVPPlus vp a ant.a pol.p) (predV v) ;
-
-
-  PredVPosv np vp = mkCl np vp ; ---- TODO restructure all this using Extra.Foc
-  PredVPovs np vp = mkCl np vp ; ---- 
-
-  that_RP = which_RP ; -- som
-  who_RP = which_RP ;
-
-  CompS s = {s = \\_ => "att" ++ s.s ! Sub} ;
-  CompQS qs = {s = \\_ => qs.s ! QIndir} ;
-  CompVP ant p vp = {s = \\a => ant.s ++ p.s ++ infVPPlus vp a ant.a p.p} ;
-
-  -- VPSlashVS : VS -> VP -> VPSlash
-  ---VPSlashVS vs vp = 
-  ---   insertObj (\\a => infVP VVInf vp Simul CPos a) (predV vs) **
-  ---  {c2 = ""; gapInMiddle = False} ;
-
-  PastPartRS ant pol vps = mkRS ant pol (mkRCl which_RP <lin VP vps : VP> ) ; ---- maybe as participle construction?
-
-  PresPartRS ant pol vp = mkRS ant pol (mkRCl which_RP vp) ; --- probably not as participle construction
-
-  ApposNP np1 np2 = {
-    s = \\c => np1.s ! c ++ comma ++ np2.s ! NPNom ;
-    a = np1.a
-  } ;
-  
-  AdAdV = cc2 ;
-  
-  UttAdV adv = adv;
-}