bubblesort xs
| xs == xs' = xs'
where
xs' = bubblesortIterate xs
bubblesortIterate lst@(x:xs)
| nil xs = xs
| x
<= head xs
= x:bubblesortIterate xs
bubblesortSwap (x:y:xs) = y:x:xs
YnViYmxlc29ydCB4cwogICAgICAgIHwgeHMgPT0geHMnID0geHMnCiAgICAgICAgfCBvdGhlcndpc2UgPSBidWJibGVzb3J0IHhzJwogICAgICAgIHdoZXJlCiAgICAgICAgICAgICAgICB4cycgPSBidWJibGVzb3J0SXRlcmF0ZSB4cwogICAgICAgICAgICAgICAgYnViYmxlc29ydEl0ZXJhdGUgbHN0QCh4OnhzKQogICAgICAgICAgICAgICAgICAgICAgICB8IG5pbCB4cyAgICAgPSB4cwogICAgICAgICAgICAgICAgICAgICAgICB8IHggPD0gaGVhZCB4cyA9IHg6YnViYmxlc29ydEl0ZXJhdGUgeHMKICAgICAgICAgICAgICAgICAgICAgICAgfCBvdGhlcndpc2UgICAgPSBidWJibGVzb3J0U3dhcCBsc3QKICAgICAgICAgICAgICAgIGJ1YmJsZXNvcnRTd2FwICh4Onk6eHMpID0geTp4OnhzCg==