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