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