Program di bawah ini adalah program prolog yang digunakan untuk menghitung hasil kali dari dua buah list sama panjang yang diinputkan.

Domains
	list=integer*
Predicates
	kali(list,list,list).
Clauses
	kali([],[],[]).
	kali([H1|T1],[H2|T2],[H3|T3]):-H3=H1*H2,kali(T1,T2,T3).

Program di atas telah diuji dan berjalan menggunakan Turbo Prolog dalam DOSBox.