% lejto(+L0,+N,-L)
lejto([L0,L1|Ls], N, Ms) :-
	N is L1-L0, !, % ket egymas melletti jo szam
	(
	  Ls = [L2|_] -> % van koveto
	  (
	    N is L2-L1 -> % koveto is jo
	    Ms = [L0|Ms0],
	    lejto([L1|Ls], N, Ms0)
	  ;
	    Ms = [L0,L1|Ms0],
	    lejto(Ls, N, Ms0)
	  )
	  ;
	  Ms = [L0,L1] % nincs koveto
	).
lejto([_,L2|Ls], N, Ms) :-
	!, lejto([L2|Ls], N, Ms).
lejto(_, _, []).