<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">
% Simple example for testing in Prolog compiler
% swipl from command line
% Inside compiler:
% ['simple.pl'].
% person(bob). 
% returns true
% father(bob,X).
% returns X = sam.
% control d to exit

person(bob).
father(bob,sam).

</pre></body></html>