как из этих всех правил сделать одно динамическое правило

1-задание
students([alihanov,gorban,saprikin,esaylov,shaposnikov,hvorost]).

student(X,Y):- Y=1, students([X|_]).
student(X,Y):- Y=2, students([_|[X|_]]).
student(X,Y):- Y=3, students([_|[_|[X|_]]]).
student(X,Y):- Y=4, students([_|[_|[_|[X|_]]]]).
student(X,Y):- Y=5, students([_|[_|[_|[_|[X|_]]]]]).
student(X,Y):- Y=6, students([_|[_|[_|[_|[_|[X|_]]]]]]).
 

?-student(X,1), write(X).
 

5-задание
Составить программу которая будет выводить числа от n до 20 где n-число букв в вашем имени.
Составить программу подсчета числа букв вашей фамилии и вычисления факториала этого числа.


6-задание
Составьте предикат, который позволяет сравнить два слова. Входом предиката являются слова, которые сравниваются, а выходом совпадающие и не совпадающие их части.