ions (hd:tl) = insertAll tailElems hd 
        where tailElems = L.concatMap toList tl
              
----------------------------------------------------------------

-- remove deleted
c
unions (hd:tl) = insertAll tailElems hd 
        where tailElems = L.concatMap toList tl
              
----------------------------------------------------------------

-- remove deleted
unions (hd:tl) = insertAll tailElems hd 
        where tailElems = L.concatMap toList tl
              
----------------------------------------------------------------

-- remove deleted