more Interrupted Bubble Sort

Haskell