--------------------------------------------------------------------------------

msort :: Ord a => [a] -> [a]
msort = merging . risers
msort :: Ord a => [a] -> [a]
msort = merging . risers
msort = merging . risers