bubblesort([], []).
bubblesort([A], [A]).
bubblesort([A|D], Ret) :-
    bubblesort(D, E),
    [B|G] = E,
    ((A =< B, Ret = [A|E]);
     (A > B,  bubblesort([B,A|G], Ret))).