lessthan([], [1|_]).
lessthan([1|X], [1|Y]) :- lessthan(X,Y).