:- initialization(main).

main :-
    (   grandparent(robert, alice)
    ->  writeln('Robert adalah kakek Alice')
    ;   writeln('Hubungan tidak ditemukan')
    ),
    halt.