cleanSegments h tree = do
 writeCleanOut h ""
 writeCleanOut h "#---------------------------------------"
 writeCleanOut h "# virtual network segments to be removed"
 writeCleanOut h "#---------------------------------------"
 writeCleanOut h ""
 ocleansbl h tree
cleanSegments h tree = do
 writeCleanOut h ""
 writeCleanOut h "#---------------------------------------"
 writeCleanOut h "# virtual network segments to be removed"
 writeCleanOut h "#---------------------------------------"
 writeCleanOut h ""
 ocleansbl h tree
cleanSegments h tree = do
 writeCleanOut h ""
 writeCleanOut h "#---------------------------------------"
 writeCleanOut h "# virtual network segments to be removed"
 writeCleanOut h "#---------------------------------------"
 writeCleanOut h ""
 ocleansbl h tree