1. NEED TO GO THROUGH A FILTER.
country[
    ethnicgroups[
        percentage(@ethnicPercentage=x1)],
    religions[
        percentage(@religPercentage=x2)],
    languages[
        percentage(@langPercentage=x3)],
    border[
        country(@borderCountry=x4),
        length(@length=x5),
        justice(@justice=x6)],
    population[
        year(@year=x7,@pop=x8)],
    name(@countryName=x9){functional},
    area(@area=x10){functional},
    gdp_total(@gdp=x11),
    inflation(@inflation=x12),
    government(@gov=x13)]
:-
Country(Y1),Country(Y2),Population(Y3),
ReligionPercent(Y4),LanguagePercent(Y5),EthnicGroupPercent(Y6),
ethnicgroups(Y2,Y6),religions(Y2,Y4),languages(Y2,Y5),
[dependentArea:border](Y1,Y2),hasPopulation(Y2,Y3),countryName(Y1,x4),
countryName(Y2,x9),year(Y3,x7),percent(Y4,x2),
populationNumber(Y3,x8),percent(Y5,x3),percent(Y6,x1),
area(Y1,x10).

2. NEED TO GO THROUGH A FILTER.
country[
    ethnicgroups[
        percentage(@ethnicPercentage=x1)],
    religions[
        percentage(@religPercentage=x2)],
    languages[
        percentage(@langPercentage=x3)],
    border[
        country(@borderCountry=x4),
        length(@length=x5),
        justice(@justice=x6)],
    population[
        year(@year=x7,@pop=x8)],
    name(@countryName=x9){functional},
    area(@area=x10){functional},
    gdp_total(@gdp=x11),
    inflation(@inflation=x12),
    government(@gov=x13)]
:-
Country(Y1),Country(Y2),Population(Y3),
ReligionPercent(Y4),LanguagePercent(Y5),EthnicGroupPercent(Y6),
ethnicgroups(Y2,Y6),religions(Y2,Y4),languages(Y2,Y5),
INV([dependentArea:border])(Y2,Y1),hasPopulation(Y2,Y3),countryName(Y1,x4),
countryName(Y2,x9),year(Y3,x7),percent(Y4,x2),
populationNumber(Y3,x8),percent(Y5,x3),percent(Y6,x1),
area(Y1,x10).

3. NEED TO GO THROUGH A FILTER.
country[
    ethnicgroups[
        percentage(@ethnicPercentage=x1)],
    religions[
        percentage(@religPercentage=x2)],
    languages[
        percentage(@langPercentage=x3)],
    border[
        country(@borderCountry=x4),
        length(@length=x5),
        justice(@justice=x6)],
    population[
        year(@year=x7,@pop=x8)],
    name(@countryName=x9){functional},
    area(@area=x10){functional},
    gdp_total(@gdp=x11),
    inflation(@inflation=x12),
    government(@gov=x13)]
:-
Country(Y1),Country(Y2),Population(Y3),
ReligionPercent(Y4),LanguagePercent(Y5),EthnicGroupPercent(Y6),
Exportation(Y7),ethnicgroups(Y2,Y6),religions(Y2,Y4),
languages(Y2,Y5),[toCountry:fromCountry](Y7,Y2),[toCountry:fromCountry](Y7,Y1),
hasPopulation(Y2,Y3),countryName(Y1,x4),countryName(Y2,x9),
year(Y3,x7),percent(Y4,x2),populationNumber(Y3,x8),
percent(Y5,x3),percent(Y6,x1),area(Y1,x10).

4. NEED TO GO THROUGH A FILTER.
country[
    ethnicgroups[
        percentage(@ethnicPercentage=x1)],
    religions[
        percentage(@religPercentage=x2)],
    languages[
        percentage(@langPercentage=x3)],
    border[
        country(@borderCountry=x4),
        length(@length=x5),
        justice(@justice=x6)],
    population[
        year(@year=x7,@pop=x8)],
    name(@countryName=x9){functional},
    area(@area=x10){functional},
    gdp_total(@gdp=x11),
    inflation(@inflation=x12),
    government(@gov=x13)]
:-
Country(Y1),Country(Y2),Population(Y3),
ReligionPercent(Y4),LanguagePercent(Y5),EthnicGroupPercent(Y6),
CurrencyValue(Y7),ethnicgroups(Y2,Y6),religions(Y2,Y4),
languages(Y2,Y5),hasCurrency(Y2,Y7),hasCurrency(Y1,Y7),
hasPopulation(Y2,Y3),countryName(Y1,x4),countryName(Y2,x9),
year(Y3,x7),percent(Y4,x2),populationNumber(Y3,x8),
percent(Y5,x3),percent(Y6,x1),area(Y1,x10).