insert +fgl

insert :: Ord a => (a, b) -> Heap a b -> Heap a b
fgl Data.Graph.Inductive.Internal.Heap