-----------------------
-- supporting functions
-----------------------

---------------------------------
-- network segments to be removed
---------------------------------

ocleansbl h (BlockList BEmpty b) = ocleansb h b
ocleansbl h (BlockList BEmpty b) = ocleansb h b
ocleansbl h (BlockList BEmpty b) = ocleansb h b