scomponi([],L).
scomponi([[X,Y]|C],List) :-
	X =.. [Fct1|Args],
	Y =.. [Fct2|Argss],
	atomic_concat('-',Fct1,Out1),
	atomic_concat(10,Out1,Out2),
	atomic_concat(Out2,Fct2,OutTotale),
	OutTotale =.. Li,
	list:append(Li,List,List),
	scomponi(C,List).


input : K=[], scomponi([[p(X),q(Y)],[h(x),m(y)]],K).