cleanRemoveServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#-----------------------"
 writeCleanOut h "# remove virtual servers"
 writeCleanOut h "#-----------------------"
 writeCleanOut h ""
 ocleanrvbl h tree
cleanRemoveServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#-----------------------"
 writeCleanOut h "# remove virtual servers"
 writeCleanOut h "#-----------------------"
 writeCleanOut h ""
 ocleanrvbl h tree
cleanRemoveServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#-----------------------"
 writeCleanOut h "# remove virtual servers"
 writeCleanOut h "#-----------------------"
 writeCleanOut h ""
 ocleanrvbl h tree