:- consult(graph).
:- consult(solution1).
:- consult(solution2).

prettify_findall([]).

prettify_findall([Head|Tail]) :-
    write(Head),
    nl(),
    prettify_findall(Tail).

%% Query vraag 1.3
find_paths([]).

find_paths([[A, B]|Tail]) :-
    findall(A_Path, path(A, B, A_Path), Result),
    prettify_findall(Result),
    nl(),
    nl(),
    find_paths(Tail).