bubblesort (x:y:ys) = let (z:zs) = bubblesort (y:ys) in
                        if x < z then x:z:zs else bubblesort (z:x:zs)
bubblesort (x:y:ys) = let (z:zs) = bubblesort (y:ys) in
                        if x < z then x:z:zs else bubblesort (z:x:zs)
bubblesort (x:y:ys) = let (z:zs) = bubblesort (y:ys) in
                        if x < z then x:z:zs else bubblesort (z:x:zs)