% Sort the list
sort([]) -> [];
sort([X]) -> [X];
sort([X,Y]) when X =< Y -> [X,Y];
sort([X,Y]) when X > Y -> [Y,X];
sort(X) ->
    {X1, X2} = lists:split(length(X) div 2, X),
    lists:merge(sort(X1), sort(X2)).