selection_sort([],[]).
selection_sort(L,[H|T]) :- smallest(L,H), remove(L,H,M), selection_sort(M,T).