Написать программу на языке Prolog, реализующую логическую головоломку.

Жили четыре друга. Звали их Альберт, Карл, Дитрих и Фридрих. Фамилии
друзей те же, что и имена, только так, что ни у кого из них имя и фамилия не
были одинаковыми, кроме того, фамилия Дитриха не Альберт. Определите
фамилию и имя каждого мальчика , если известно, что имя мальчика, у
которого фамилия Фридрих, есть фамилия того мальчика, имя которого –
фамилия Карла