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

pair_list([X,Y],[[X,Y]]).
pair_list([E,Z|X],[[E,Z]|Y]):-pair_list(X,Y).

main:-
	process,
	halt.

process:-
	pair_list([1,2, 3, 4, 5, 6], X),
	write(X),
	true.

:- main.