bubbleSort :: (Ord a, Show a) => [a] -> [a]
--bubbleSort lst | trace ("sorting: " ++ show lst) False = undefined
bubbleSort [] = []
bubbleSort :: (Ord a, Show a) => [a] -> [a]
bubbleSort [] = []
bubbleSort [] = []