maxView m = let (k, a) = findMax m
            in Just (a, delete k m)
maxView m = let (k, a) = findMax m
            in Just (a, delete k m)
maxView m = let (k, a) = findMax m
            in Just (a, delete k m)