:- initialization(main).

% Facts
likes(roger, discretemath).
likes(zidan, football).
likes(roger, zidan).
likes(zidan, roger).
likes(zidan, chocolate).
likes(roger, banana).

% Main program
main :-
    write('Masukkan Person (contoh: roger): '),
    read(Person),
    write('Masukkan Thing (contoh: banana): '),
    read(Thing),
    (   likes(Person, Thing)
    ->  writeln('true')
    ;   writeln('false')
    ),
    halt.