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

bubblesort(A, A).