concrete CountryFre of Country = open CategoriesFre, ParadigmsFre in {

  lincat
    Country = PN ;
    Nationality = A ;
    Language = N ;

  lin
    Denmark = mkPN "Danemark" masculine ;
    England = mkPN "Angleterre" feminine ;
    Finland = mkPN "Finlande" feminine ;
    France = mkPN "France" feminine ;
    Germany = mkPN "Allemagne" feminine ;
    Italy = mkPN "Italie" feminine ;
    Norway = mkPN "Norvège" feminine ;
    Russia = mkPN "Russie" feminine ;
    Spain = mkPN "Espagne" feminine ;
    Sweden = mkPN "Suède" feminine ;

    Danish = regA "danois" ;
    English = regA "anglais" ;

    DanishLang = regN "danois" masculine ;
    EnglishLang = regN "anglais" masculine ;


} ;