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

splt([],[],[]).
splt([(X1,Y1)|Xs],[X1|T1],[Y1|T2]):-
  splt(Xs,T1,T2).

main:-
	process,
	halt.

process:-
	/* your code goes here */
	splt([('a',1),('b',2),('c',3)],L3,L4),
	write(L3),
	write(L4),
	true.

:- main.