:- set_prolog_flag(verbose,silent).
:- prompt(_, '').
:- use_module(library(readutil)).

person(bob,42).
person(jeff,12).
person(adam,23).

main:-
	process,
	halt.

process:-
	person(X,AgeX), forall(person(Y,AgeY), X=Y;AgeX<AgeY), write(X),
	true.

:- main.