Как переделать этот код под Visual Prolog 10

Как заставить его работать в Visual 10? Спасибо заранее

domains
    painting = string
    year = integer
    style = string

predicates
    main()
    is_romanticism(painting, year, style)
    is_1871(painting, year, style)
    is_aivazovsky(painting, year, style)

clauses
    main() :-
        Paintings = [
            "М.Врубель \"Демон сидящий\" 1890 символизм",
            "А.Саврасов \"Грачи прилетели\" 1871 реализм",
            "М.Врубель \"Царевна-лебедь\" 1900 символизм",
            "А.Куинджи \"Лунная ночь на Днепре\" 1880 романтизм",
            "И.Крамской \"Неизвестная\" 1883 реализм",
            "К.Брюллов «Последний день Помпе́и» 1833 историческая живопись",
            "И.Айвазовский \"Девятый вал\" 1850 романтизм",
            "И.Репин \"Бурлаки на Волге\" 1873 историческая живопись",
            "В.Серов \"Девочка с персиками\" 1887 импрессионизм",
            "И.Шишкин \"Утро в сосновом лесу\" 1889 реализм",
            "И.Айвазовский \"Радуга\" 1871 романтизм",
            "Л.Лагорио \"Дача\" 1892 романтизм",
            "И.Левитан \"Золотая осень\" 1895 реализм",
            "М.Шагал \"Над городом\" 1918 кубизм",
            "В.Поленов \"Бабушкин сад\" 1878 реализм",
            "В.Пукирев \"Неравный брак\" 1863 реализм",
            "П.Федотов \"Сватовство майора\" 1848 реализм",
            "Б.Кустодиев \"На террасе\" 1906 импрессионизм",
            "К.Маковский \"За чаем\" 1914 романтизм",
            "Т.Афонина \"Натюрморт с вербами\" 1964 реализм"
        ],
        output_aivazovsky(Paintings).

    is_romanticism(Painting, _, Style) :-
        string.contains(Style, "романтизм"),
        output(Painting).

    is_1871(Painting, Year, _) :-
        Year = 1871,
        output(Painting).

    is_aivazovsky(Painting, _, _) :-
        string.contains(Painting, "Айвазовский"),
        output(Painting).

    output(Paintings) :-
    foreach(Painting in Paintings, writeln(Painting)).

output_romanticism(Paintings) :-
    foreach(Painting in Paintings, (
        is_romanticism(Painting, _, _)
    )).

output_1871(Paintings) :-
    foreach(Painting in Paintings, (
        is_1871(Painting, _, _)
    )).

output_aivazovsky(Paintings) :-
    foreach(Painting in Paintings, (
        is_aivazovsky(Painting, _, _)
    )).