minViewWithKey m = let (k, a) = findMin m
                   in Just ((k, a), delete k m)
minViewWithKey m = let (k, a) = findMin m
                   in Just ((k, a), delete k m)
minViewWithKey m = let (k, a) = findMin m
                   in Just ((k, a), delete k m)